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This issue contains the first article to ap- 
pear in Colorcue for the Intecolor 8000 
Series Computers. It duplicates, to some 
extent, the material in W. S. Whilly’s 
series on IDA, but is of a slightly dif- 
ferent bent. I hope readers will forgive 
the similarity as we push to include 8000 
users in Our community. Many thanks 
to Bob Mendelson for taking the 
plunge! Colorcue has received ROM 
listings for the 8000 and will publish the 
more pertinent addresses in the next 
issue. The 8000 is very like the Com- 
pucolor and the 3651. The primary dif- 
ferences are in the 24K user RAM, an 
80 by 48 screen display, and a totally dif- 
ferent memory mapping. In general, 
there is no reason why CCII programs 
can not be converted for use on the 
8000. The 8K RAM not present in the 
8000 is occupied by Command files, 
normally external in the 3651 and CCI, 
and by printer and light pen routines. It 
is exciting to have this extension to our 
readership and I hope more articles will 
be forthcoming. 


Several subscription renewals have 
been received at the office, well ahead 
of schedule. As: you probably know, 
Colorcue has been accepting only full 
calendar year memberships, both to help 
us with planning on a six-issue basis, 
and because plans for next year have 
been uncertain. Please do not send in 
subscription renewals for next year un- 
til they are called for in Colorcue, that 
is, unless you Owe more money to com- 
plete the 1984 edition. We will be mak- 
ing plans for next year during the re- 
mainder of the summer and announce 
them in the Sept/Oct issue. 


As the Sourcebook materials con- 
tinue, you will notice a dearth of 
material on hardware. PPI in Australia 
and Tom Devlin, in Michigan, are vir- 
tually the only vendors selling a selec- 
tion of hardware materials for the CCII. 
Tom Devlin continues to offer his RAM 
card and Analog Protector circuit. Ben 
Barlow is offering a lower case character 
ROM (See previous issue). I do not 
know if Frepost Computers still exists. 
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Communications with them have been 
unanswered. I would like to repeat that 
any materials, software or hardware, 
that you want to add to your system, 
should be purchased very soon. It is not 
likely that they will be available much 
longer. The Rochester User Group re- 
mains the strongest source of software 
and overall inspiration. Join them to 
assure their continuation, and to make 
available to yourself a rich deposit of 
software in the free library. Colorcue is 
interested in having reviews of in- 
teresting programs in the CHIP library. 
This is a good time for you to write one 
on a CHIP program that has been in- 
teresting to you. 


Since the publication of the ROM 
tables in Colorcue, we will no longer 
specify multiple ROM locations in ar- 
ticles, both to save editing time and to 
encourage you to use the tables. It is ap- 
propriate that our articles lean more 
heavily on Assembly Language pro- 
gramming than ever before. Assembly 
programming is the highest point in the 
Compucolor experience. It offers the 
greatest power. It is very enjoyable to 
work on, and it brings one as close as 
possible to the wonders of the Com- 
pucolor computer. Although ‘getting 
started’ articles have appeared in 
FORUM and Colorcue, there are 
readers who write that they are still 
puzzled and ‘all at sea’ with Assembly 
Language procedures. As I have noted 
previously, one almost has to wait for 
the ‘light’ to turn on. It will not turn on 
without your help, however. If you are 
among those still in the dark, we invite 
you to write to us for a personal tutorial 
in Assembly programming, tailored to 
your own special needs. Please state in 
your letter what you have already done, 
your analysis of your present problems, 
and what you think might be helpful. 
We will try to respond accordingly, even 
if you don’t know where to start. It isn’t 
difficult, truly, and the rewards are 
tremendous. You owe it to yourself to 


accept the challenge. UJ i 
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COMPILING BASIC 


Peter Hiner 
11 Penny Croft 
Harpenden 
Part IV. Herts, ALS 2PD 

ENGLAND 


For this article, the last in this series, I am left with a long 
list of Basic commands not yet described and some other 
miscellaneous items. However, the majority of the remain- 
ing Basic commands warrant, at most, a brief comment of 
the ‘‘Did you know that...?’’ variety. 


Did you know that once you have defined a function (as 
in DEF FNA(X)=X+ Y-Z), you can subsequently use that 
function in defining further functions (as in DEF 
FNB(M)=FNA(1)+N)? This is rather like nesting 
subroutines, and you can add further levels of complica- 
tion by using FNB in the definition of yet another function. 
Personally, I find even a single level of FN functions too 
complicated, but I came across nested functions while testing 
out my compiler on Startrek. 


Did you know that numbers in a DATA statement can be 
read as strings? For example, DATA 1,2,3 could be follow- 
ed by READ A,B$,C. If you subsequently PRINT A; B$; C, 
you will get a space in front of 1 and 3 but not in front of 
2. 1 expect you knew that Basic puts the space in front of 
positive numerical values to make them line up neatly in col- 
umns with negative values (which have a minus sign instead 
of a space.) But did you know that Basic carefully avoids 
splitting a long number (such as 123456) between two lines 
on the screen? Before printing a numerical value, the inter- 
preter creates a string of ASCII characters (in string 
manipulation space) and counts the number of characters. 
If the cursor is too near the end of a line, the interpreter 
inserts a carriage return before it starts printing out the 
number (which it now handles in the same way as a String.) 
However, the statement A$ = ‘‘123456”’ : PRINT A$, would 
not cause the interpreter to check the cursor position, and 
this string could be split between two lines. 


Did you know that in a statement such as PRINT ‘‘DEAR 
ME’’;N$, you can omit the semicolon? I learned this the hard 
way when someone reported a bug in an early version of 
FASBAS. 


Did you know that the statement PRINT SPC(X) does not 
cause a Carriage return and line feed, even though it is not 
followed by a semicolon? The same applies to PRINT 
TAB(X). Unfortunately, I have only just had this pointed 
Out to me, so there is still a bug lurking in my compiler, 
which can be avoided by putting a semicolon after these 
statements. 


While on this subject, I should advise you of the other 
known bug. If you have a PRINT statement which contains 
a “‘cursor down’’ character, it will compile without problem, 
but, during the subsequent assembly operation, the ‘‘cur- 
sor down”’ character will look like an end-of-line marker, 
causing chaos and an error message. This problem can be 
overcome by replacing the ‘‘cursor down’’ character with 
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CHR$(10), although that will be marginally slower. To max- 
imize speed, you could be brave and edit the intermediate 
version of a compiled program before assembly, but I doubt 
that you would notice the difference in speed. 

To avoid having this article become a jumble of 
miscellaneous items, I will move on to the subject of memory 
space, beginning with a map to compare the allocation of 
blocks of memory for Basic and compiled programs. (See 
Fig 1.) 

The manual supplied wih FASBAS describes the difficul- 
ty in defining (for either Basic or compiled programs) the 
limits of the ‘‘spare space’’ block, squeezed between blocks 
allocated forward from 829AH and blocks allocated 
backward from the end of memory. The ‘‘spare space’’ 
block will vary in size, both from program to program and 
during the course of running a program, so it is a dangerous 
practice to use it for machine code routines. The safe place 
for these is in space reserved at the end of memory, and this 
space can be reserved by starting with a line like this: 


@ POKE 32948,a : POKE 32941,b : CLEAR 98 


FIG 1. Relative memory allocations 


BASIC COMPILED 


--- FCS Parameters --- 
--- Basic parameters --- 


Basic program Run-time library 
including DATA _—_sData, 
Compiled program 
Variables & constants 
One dimensional 
numerical arrays 


Variables and 
string pointers 


String pointers 


All types of array 
and File buffers 


String arrays 
File buffers 

Mul ti-dimensional 
numerical arrays 


229? Spare space 


929? Space for stack --- 
279? String space = --~ 


2722 Space can be reserved here for machine 
code routines 


END OF RAM 


The values for a and b can be found from Fig 2. The POKE 
statements set a limit on the size of memory available to the 
interpreter, and the CLEAR statement defines the size of 
string manipulation space to be allocated (counting 
backward from the new limit of available memory.) The 
stack space is automatically moved further down in memory 
at the same time. 


If you have a program which runs out of memory space 
when using FILE routines, you will have to consider reduc- 
ing the size or the number of file buffers. The Compucolor 
Basic Manual gives all the information you need, but re- 
quires very careful reading to appreciate the implications 
of the decisions you may make concerning blocking factor 
and number of file buffers allocated. 


The fast and easy way is to allocate enough buffers to 
enable the whole file to be stored in RAM at once, but I 
will assume, now, that you have run out of memory space. 
If you had allocated more than one buffer in the FILE ‘‘R’’ 
statement, you can reduce the number of buffers without 
any problem, except that the number of file accesses may 
be increased. If you had only allocated one buffer, you can 
use the option allowed by the FILE ‘‘R”’ statement to over- 
ride the blocking factor. This can be done without chang- 
ing the file itself, provided that everything (including your 
new blocking factor) fits exactly into a pattern of multiples 
of 128 bytes, or else you will be in trouble. If this sugges- 
tion leaves you confused, then do not attempt to implement 
it.[1] 

If you are starting a new file, then you can get things right 
in the first place. The number of bytes per record multiplied 
by the blocking factor (number of records per block) deter- 
mines the size of one file buffer (we can ignore the addi- 
tional bytes used for housekeeping.) If this resulting number 
is not an exact multiple fof 128, then you will waste space 
both on the disk and in RAM. 


Let us take as an example a file consisting of 256 records, 
each containing 32 bytes, and then consider the effects of 
varying the blocking factor and the number of file buffers 
allocated. To read the entire file at once from disk would 
require 8K of memory space, and it would make no dif- 
ference whether we chose a blocking factor of 64 (and 
therefore allocated one file buffer of 8K bytes) or chose a 
blocking factor of 4 (and therefore allocated 64 file buffers 
of 128 bytes each). Other combinations between these ex- 
tremes would also give the same result. 


If, however, we could only afford 512 bytes of memory 
space for the buffers, then the maximum value of blocking 
factor we could use would be 16, and we would then allocate 
1 buffer. This would cause 16 records to be read every time 
the disk is accessed, and would be the best arrangement 
(within this memory limitation) for sequential file access, 
or for most forms of random access. 


To see why it is normally best to make the blocking fac- 
tor as large as possible and to allocate only one file buffer, 
let us consider what would happen if, in the above exam- 
ple, we chose a blocking factor of 4 and allocated 4 file buf- 
fers of 128 bytes each. The first file access would cause 16 
records to be read from disk (just as previously) and these 
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would fill all 4 file buffers. But any subsequent access to 
a part of the file not already in memory would cause only 
four more records to be read from disk. These four records 
would be put in the ‘‘least recently used’’ file buffer (over- 
writing the previous contents.) You can see that this is like- 
ly to result in nearly 4 times as many disk read operations, 
and will therefore be much slower. The only case in which 
you would benefit from multiple file buffers is when you 
want to retain part of the file (such as an index) in memory 
all of the time, and to achieve this you might have to insert 
dummy GET statements to assure that those buffers you 
wish to retain do not become the “‘least recently used.’’ 


FI6 2. Values for Reserved Memory Space. 


Number of bytes 16K Memory 32K Memory 
to reserve (a) (b) (a) (b) 


128 rene»: Biles 0? Saale « ~ 
296 20 1% 2 2 
912 255 «189 0 255 293 


In one way or another, FILE statements gave me quite 
a lot of trouble while writing FASBAS. For a start, I had 
never been a heavy user of FILE statements in Basic pro- 
grams, so I had to learn how they were meant to work in 
Basic before I could even comtemplate compiling them. | 
could see that FILE routines might spend a lot of time ac- 
cessing the disk, which would not offer any chance for speed 
improvement. So I did not apply much effort to them in- 
itially, and I only included the minimum facilities in FASBAS 
v12.20. | still managed to get some bits wrong, and while 
correcting these bugs for v12.21, I decided to try to provide 
a complete implementation of all the FILE statements, in- 
cluding the obscure FILE ‘‘A’’ command. (Does anybody 
ever use it?) 


The most difficult FILE statement was FILE ‘‘T’’, which 
provides error trapping. The theory is that if you include 
in your Basic program a statement like FILE ‘‘T’’,1000, the 
interpreter will jump to line 1000 instead of giving an error 
message, if at any time it finds an error while executing a 
FILE command. The trap facility is turned off again by 
declaring FILE ‘‘T’’, without a line number. The problem 
confronting me was that the error trap routine would try 
to find and interpret line 1000, and I could not make the 
interpreter give control back to the compiled program. The 
file routines are long and complex, containing many check 
points which might cause the program to jump into the er- 
ror trap routine. So I could not put an alternative error trap 
routine in the run-time library unless | was prepared to 
rewrite all the file routines as well. 


I came to the conclusion that I would have to include a 
bit of Basic program to satisfy the interpreter when an er- 
ror was trapped. This bit of Basic program would contain 
an escape mechanism to give control back to the compiled 
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program. Since the interpreter would start from address 
829AH in its search for the required line, the compiled pro- 
gram would have to start with one or more lines of Basic 
before the machine code. The solution I eventually chose 
was related to the solution to another problem (chaining 
compiled programs), but I will try to keep them separate 
for the moment. 


First of all, I made life a bit easier by determining that 
the error trap routine would always redirect the interpreter 
to the same line number (I chose line 2 for reasons which 
will be apparent later.) The compiled program would start 
with three lines (0, 1 and 2) of Basic, and line 2 would look 
like this: 


2 POKE 33216,242 : POKE 33217,138 : PLOT 27,94 


The POKE statements put the value 82F2H into memory at 
address 81COH (which is the location of the jump vector 
for [ESC] [USER]. PLOT 27,94 is equivalent to keying in 
[ESC] [USER], and this will result in the program being vec- 
tored to 82F2H, which is the start of the routine for error 
trapping. So we have achieved the first part of our objec- 
tive, by escaping from the interpreter routines to our own 
machine code routine. 


The error trap routine contains an instruction JMPwxyz, 
where ‘wxyz’ represents an address which has previously 
been inserted during the execution of a FILE ‘‘T’’ statement 
(in our example the address inserted would be the location 
of the compiled version of line 1000.) So by a devious route, 
the program will eventually reach the right place. 

Now we can look at the first two lines of Basic program, 


which are included to provide a mechanism to chaining com- 
piled programs. 


8 REM (followed by what appears as garbage) 
1 POKE 33215,195 : POKE 33216,154 : 
POKE 33217,138 : PLOT 27,94 


The POKE statements put the assembly language instruction 
JMP 829AH into the user escape location, and the PLOT 27,94 
causes user escape to be activated. So if the Basic interpreter 
were to start reading what looks like the beginning of a nor- 


Fig 3. Beginning compiled code lines. 


Address Object Code Assembly Meaning in Basic 
Address of next 


line of Basic 


829AH A3H ANA E 

829BH 82H ADD D 

829CH 86H NOP Basic line 

829DH 68H NOP number 6 

829EH 8EH ADC M REM 

829FH C3H,FDH,82H JUMP 82FDH Rubbish 

82A2H 88H NOP Basic end-of- 
line marker 


mal Basic program, it would start at line 0, find a REM state- 
ment, and ignore the rubbish in the rest of the line. Then 
it would execute line 1 and the user escape function ould 
cause the processor to jump out of the interpreter routine 
and go back to address 829AH. 

This time, the program would no longer be under the con- 
trol of the interpreter and therefore the code starting at ad- 
dress 829AH would take on an entirely different meaning. 
To explain this, I have listed the address, object code and 
assembly language version of the first few bytes in Fig 3. 

The code in 829AH to 829EH (which is really the Basic 
linking address, line number, and REM token) does nothing 
useful when taken to be machine code instructions, but it 
does no harm either. The JMP instruction then directs the 
program to the correct address after the rest of the Basic 
lines and the error trap routine. 


Fig 4. Lines for pseudo-Basic prooran. 


ORG 829AH 


GA3H,82H,0,8,8EH 
BEGIN 

8, 8CFH, 82H, 1,8 
95H, 33215, 19537 
95H,/39216,154:7 
95H, /33217,138:/ 
92H,727,94” ,8,8,8 


BEGIN: ; The rest of your program here. 


Now we have a compiled program which can be run as 
a PRG type program under FCS control, or can be access- 
ed through the Basic interpreter. So if we change the file 
type from PRG to BAS in the directory, we can load and 
run it just like a normal Basic program. We can freely chain 
together any combination of Basic and pseudo-Basic (com- 
piled) programs using LOAD ....: RUN statements. 


If you want to make your own assembly language pro- 
grams look like Basic programs, you can include something 
like the Basic lines 0 and 1 at the beginning. (They must load 
to 829AH.) You can change the file type in the directory 
from PRG to BAS using the FCS RENAME instruction and 
then treat the program as if it were in Basic. One possible 
application of this would be to name a program as MENU, 
so that it can be run from the AUTO key. 


For your convenience I give a listing in assembly language 
of the instructions you would need at the start of a pseudo- 
Basic program in Fig 4. This concludes my series of articles 
on compiling Basic. I hope you have found this ramble 
around the subject interesting and, in places, useful. 


[FASBAS is available from the author for $25US. Ed] 


1. See also COLORCUE, VOL VI, No 2, pps 26-28. Ed. 


Assembly Language Programming 


Part XV. Joseph Norris 


Why are we so fascinated by animation? I wouldn’t want 
it told that in spite of a very proper upbringing and a lifetime 
of rather sophisticated intellectual pursuits, I can be hook- 
ed for hours at the terminal trying to outwit a dumb figure 
that I know, perfectly well, is programmed to do me in, 
everytime. So, welcome to the human race! 


This article has been requested more often than any other, 
yet you already have a good feeling for the construction of 
animation in assembly language. The fact that much of what 
we do here will seem obvious and elementary will be evidence 
of that. Since our purpose is to explore possibilities, rather 
than create a finished program, we will look at some techni- 
ques, carry them somewhat into a meaningful area, then 
cruelly leave you on your own, with your imagination and 
an inspirational screen display to use as a ‘‘springboard”’ 
for further play. 


Animation on the CCII/3650/8000 computer can be 
achieved through the family of PLOT functions enabled in 
the system ROM, and, more satisfactorily, through the direct 
use of screen memory. We will begin by examining a brief 
example of animation using the PLOT functions. 


In BASIC, we can construct and plot a rectangular 
‘fanimaton’’ with a single line: 


165 PLOT 3,38,15,2,118,111,3,38,16,2,188,189, 255 
This line sets the cursor at x = 30, y = 15; enters the character 


plot mode (’’2’’) and prints the Ist and 4th quadrant ‘‘cor- 
ner figures where they belong. 


To add dignity to the rectangle, we can enter the blind 
cursor mode by preceding the x,y coordinates with a number 
higher than the largest valid x coordinate ( greater than 
**63’’). I have chosen ‘‘82’’ because it satisfies a ‘‘bug’’ in 
early software versions. (See the Instruction Manual for a 
description of the blind cursor mode.) 


185 PLOT 3,82,38,15,2,116,111,3,82,38,16,2,188,189,255 
If we change the values of x and y in line 105 then we can 
make the animaton ‘‘move’’ through the screen area. This 
is done easily in Basic by placing variables X and Y in the 


String, and replotting the string with changing values of X 
and Y: 


185 PLOT 3,82,X,¥,2,116,111,3,82,X,Y#1,2,108, 189, 255 

The illusion of motion of an animaton requires that we 
erase the previous position of the animaton before plotting 
its new location. To erase the rectangle, we can construct 
another line that is identical to Line 105, except that it will 


print ‘‘spaces’’ (’’32’’) over the graphics characters, hence 
‘‘erasing’’ them: 


115 PLOT 3,82,X,Y,2,32,32,3,82,X,Y#! ,2,32,32, 255 
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These two lines, executed in repeating succession, produce 
a ‘‘blinking’’ character plot on the screen. We may plant 
these same lines, virtually untouched, into an assembly 
routine as labelled DB strings. The only difference is the ad- 
dition of ‘‘239’’ at the end of each string, so OSTR can be 
used to print them: 


MAIN: LX] H,GRAPH ;Point to string 
CALL OSTR s and print it 
LX] H,CLEAR ;Point to erase string 
CALL OSTR ; and print it 
UMP = MAIN sDo it all again! 


GRAPH: DB 3,82,38,15,2,118,111,3,83,38,16,2,188, 109, 239 


CLEAR: DB 3,82,38,15,2,32,32,3,82, 38, 16,2,32,32, 239 


To change the plotting position of the rectangle, we need 
only alter that portion of the memory contents of these two 
strings which determine the x and y plotting values. For 
GRAPH.:, these are the third and tenth bytes for the x values 
(GRAPH + 2,GRAPH +9), and the fourth and eleventh bytes 
for the y values (GRAPH+3, GRAPH +10); similarly for 
CLEAR:. 


Before we can experiment with this animaton, we need 
a skeletal program to perform the plotting and get some in- 
terfacing from the ‘‘joystick’’ or keypad. I call, again, on 
David Suits’s keyboard input routine, from the June/July 
1982 Colorcue. We need only those portions that will ‘‘get’’ 
a character press and place it in the accumulator for fur- 
ther processing. (Please refer to that article for explanation 
of this portion of the source code.) Specifically we will use 
the routines labelled ‘‘TEST’’, ‘‘GTCHA’’, and ‘‘CHRINT.”’ 


Our need for a skeletal program is filled by GRAPH.SRC 
(see Listing 1). The comments are rather thorough, but I of- 
fer the following additional explanations: 


Keyboard Assignments. I have chosen to use the numeric 
keypad for operator interfacing with the program, follow- 
ing the convention of ‘‘CHOMP’’, with ‘‘4’’ and ‘‘6”’ mean- 
ing ‘‘left’’ and ‘‘right’’, and ‘‘8’’ and ‘‘2’’ meaning ’’up’’ 
and ‘‘down.’’ My joystick is connected to these keys. If you 
have a joystick assigned to the ‘‘arrow’’ keys, then make 
the appropriate conversions in GRAPH.SRC to accom- 
modate them, by changing the CPI values in MAIN. If you 
have no joystick, then assign any keys that are comfortable 
for you. One such arrangement that works well is to use ‘‘N”’ 
and ‘‘M’”’ for left and right, and *‘D’’ and ‘‘C”’ for up and 
down—using two hands for control. 
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The ten lines of code at MAIN control the proceedings. 
Their purpose is to intercept a keyboard input and branch 
to the appropriate subroutine for action. Key in 
GRAPH.SRC and assemble it to an appropriate origin. What 
you see when you RUN the program doesn’t seem very ex- 
citing. A stilted rectangle moves inelegantly in four direc- 
tions within the screen boundaries we have imposed. We will 
take some steps, however, to transform this into a rather 
interesting animaton. 


Suppose we bypass the GTCHA routine, and cause the 
program to operate at full speed, maintaining its previous 
branching action until a new keypress is stored in KBCHAR. 
Change the source code at MAIN: 


Replace MAIN: CALL GTCHA with MAIN: LDA KBCHAR. 


With this change, the last keypress will remain in effect un- 
til a different keypress is stored in KBCHAR (‘‘typematic”’ 
action, so to speak.) If you assemble this code you will now 
have a more challenging animaton on your hands, zipping 
from side to side and up to down , ‘‘out of control.’’ But 
you have some important information in this demonstra- 
tion. You now know how fast the PLOT structure can move 
things on the screen! 


Let’s slow things down a bit. Replace the single line at 
MAIN with these two lines: 


MAIN: CALL WAIT 
LDA KBCHAR 


‘Pause a bit 
sGet last Keypress 


Add the WAIT subroutine in Listing 2. following the PRINT 
subroutine. This handy timer has a very large range of 
delays, and you will enjoy placing different numbers in the 
B register (by changing the source code and reassembling). 
You now have reasonable control of the rectangle. Notice 
that as the speed increases (as the value of B goes down), 
the lowly rectangle takes on a more interesting aspect. In 
a single additional step, we can create a ‘‘useful’’ game. We 
will paint the background blue, and permit the rectangle to 
trace a path through the screen as it moves. Change the DB 
string CLR to read as follows (adding a second line): 


CLR: DB  ,34,12,27,24,15,38,6,2,3,8,30, 11 
DB -3,8,31,11,3,8,31,’SCORE: ’,239 


Plot 6,36 gives us a blue background (other codes will do 
that as well, of course) and we have ‘‘erased’’ the blue on 
lines 30 and 31 for future use as a scoring area. In mid-string, 
we have changed to green on black, so our rectangle will 
plot in those colors through the blue background we just 
layed out. 


| 


Now assemble and run GRAPH.PRG. Now see how 
‘‘animated’’ our rectangle has become, ‘‘eating’’ its way 
around the screen under joystick or keypad control. Try to 
make a continuous path around the screen without intersec- 
ting any previous path; then test your skill at retracing it 
without going off the path (see FIG 1). (It isn’t easy if B= 32 
or less.) If you get tired, pressing the ‘‘fire’’ button (or any 
non-defined key) will stop the rectangle in its tracks. (We 
are touching on ‘‘DIG-DUG’’ territory.) 

Making a useful ‘‘game’”’ of this skeleton program isn’t 
difficult. Your ideas will be better than mine, but here are 
some inspirational thoughts. Suppose we began the game 
with a highest possible score of 9999 and B=16. A 
subroutine called at the beginning of MAIN decrements the 
score by one. Your goal is to gobble up all the accessible 
blue area before the score reaches 0. After displaying the 
final score of the first game, the program recycles with a 


Listing 1. 
‘GRAPH: AN ASSEMBLY ANIMATION PRIMER 


j JULY 25, 1984 JHN 
; Turn lower case off, caps lock on 


Group Equates together here ..... 


; Use your ROM tables to get vé.78 
; addresses. ISC 8808 users see end 
; of listing for instructions. 


OSTR QU 182AH 5v8.79 & 
KBCHAR EQU SIFEH ; v9.88 


; Set origin for ESC T wsssccseeees 
ORG 8268H 
‘SETUP, Set initial Conditions wesesseens 
BEGIN: LX] H,8 ‘Clear HL 
DAD SP ‘Add SP to HL 
SHLD FCSSP Store old SP 
LX] SP STACK ;Add new SP 
NVI A,@C3H Setup for CHRINT 


STA BICSH 3 See David Suits 
LX] H,CHRINT ; input routine 


SHLD B1C4H ; for details 
WWI ASSFH Os 
STAs GIDFH os 


LX] H,CLR ;Clear screen etc 
CALL  OSTR 


UMP PRINT ;Draw initial box 


still lower value in the B register, getting faster and faster | 
each time it’s played. | 

Another interesting set of refinements comes from a 
subroutine that can tell if the animaton is about to travel 
into a previously ‘‘erased’’ area or not. This permits scor- 
ing in a game that wants you to retrace a previously etched 
pathway. Such a subroutine can be derived by testing the 
CCI character in the plot blocks to be written to next. 

With the ability to test plot blocks for their CCI content, 
we can also “‘plant’’ barriers to the animaton in a previous- 
ly etched pathway, requiring a change of motion, tracing 
an alternate pathway, all with additional score reductions. 

We will need a counting routine for the score as well. 
These are some things you can work on until next time, and 
we will then examine the use of direct access to screen 
memory as a technique for animation. UJ 


MAIN PRIMO Ls Sic haddinitkcchenecacte cd 


MAIN: CALL GTCHA = ;Get Key press 
CPI *6’ sMove right? 
J2 XINR = mp right routine 
CPI *4’ sMove Left? 
J2 XDCR j;dmp left routine 
CP] *8’ sMove Up? 
J2 YOCR  jdmp up routine 
CPI 12! ‘Move Down? 
U2 YINR dap down routine 
UMP MAIN j;Invalid input 


SUE IE sn ca.cdiadadehabaeeeadeenns 


CHRINT: PUSH  PSW sSuits input routine 
XRA A ; See his article 
STA SIFFH OS; 
POP PSW : 
RET 

GTCHA: XRA a ‘Get Keyboard char. 


STA KBCHAR ; See David Suits 


GTCHi: LDA KBCHAR ; 
ORA A : 
U2 GTCHi =; 
RET : 


XINR: LDA GRAPH+2 ;Move right routine 
CP] 48 ‘Right limit? 
J2 MAIN = ;Yes. Don’t move 
CALL PREP — ;Erase old box 
LDA GRAPH+2 soet old x value 
INR - ; & increase by 1! 
UMP DOX sStore new x value 
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XDCR: LDA GRAPH+2 ;Move left routine 
CPI 2 sLeft limit? 
J2 MAIN sYes. Don’t move 
CALL PREP  ;Erase old box 


LDA GRAPH+2 ;Get old x value 
; & decrease by | 
‘Store new x value 


YINR: LDA GRAPHt3 ;Move down routine 


CPI 27 sLower limit? 
J2 MAIN = Yes. Don’t move 
CALL PREP j€rase old box 


LDA GRAPH+3 ;Get old y value 
INR 4 sIncrease by ! 
STA GRAPH#3 ;Store new value 
STA CLEAR+3 ; in two places 
LDA GRAPHt18;Get old yl value 
INR 4 jraise by 1 

STA GRAPH+16;Store it also 
STA CLEAR+16; in two places 
UMP PRINT  ;Draw new box 


YOCR: LDA GRAPH+3 ;Move up routine 


CP] 1 sTop limit? 
J2 MAIN = ;Yes. Don’t move 
CALL PREP — ;Erase old box 


LDA GRAPH+3 ;Get old y value 
DCR & ‘Reduce it by 1 
STA . GRAPH#3 ;Store it in 

STA CLEAR+3 ; two places 

LDA GRAPH+18;Get old yl value 
DCR q sDecrease by 1 
STA GRAPH#16;Store also in 
STA CLEAR+1@; two places then 
UMP PRINT  ;Draw new box 


PREP: LX] H,CLEAR ;Erase current box 


CALL  OSTR 
RET 
DOX: STA GRAPH+2 ;Store new x 
STA GRAPH+9 ; value in 
STA CLEAR+2 ; these four 
STA CLEAR+9 ; memory slots 
UMP PRINT ;Print new box 
PRINT: LX] H,GRAPH ;Print box at 
CALL OSTR jj new x,y & 
JMP MAIN jj; go back. 


STRINGS. cccccccccccccscccscccccscccsccecs 


‘Setup string: BG=BK, FO-GR, Erase page 
sPage mode, A70ff, Flag On 
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CLR: =—B 


FCSSP: OW | 


§,2,12,27,24,15, 38, 239 


String to print animaton.ccsecescceseeees 


: BC x y_ Chars... 
GRAPH: OB 3,82,38,15,2,116,111 
: BC x y  Chars.. 


DB —«-3, 82,30, 16, 2,188, 189, 239 


String to erase animatOn..cecessereeseens 


: BC x y Space 
CLEAR: OB 3, 82,38 ,15,2,32,32 
: BC x y Space 


DB —«-3, 82, 38,146, 2,32, 32, 239 


; Storage for Stack Pointer 


Numerical Storage ..sccccccccccccseccess 
‘FCS Stack Pointer 


SCORE: DS 2 ‘Score storage 
sotack Allocation. This EQU entry means: 

: “Let the address STACK be 88H 

: bytes further on than this address’ 
j 
i 


We do this because the stack works 
backwards toward ‘SCORE’ and we 
want to allow enough room so it 
won’t write into ’SCORE’s area. 


STACK  EQU $+86H 

END BEGIN 

‘Don’t forget CR after ‘BEGIN’ 
;INSTRUCTIONS FOR 8688 USERS: 


‘OSTR EQU 0901H 
‘KBCHAR EQU  9FFEH 


; ORG AGOBH 


Notes On The CRT Controller Chip 


Failure of the CRT controller chip in the 
CCII is a distressing problem. These 
parts are becoming very difficult to find. 
The history of this part in the Com- 
pucolor computer is a little complicated 
because three different parts have been 
used over the years. 


The part first used was the SMC 
Microsystems CRT-5027. This has been, 
perhaps, the most widely-used CRT con- 
troller chip in the industry. It currently 
lists for $19.00 in the JDR Microsystems 
catalog and in the most recent Byte 
magazines. It is programmable for a 
variety of screen formats, and so it must 
be re-programmed each time the com- 
puter is powered-up. In the v6.78 
systems, the data is stored in the PROM, 
UAI, to be read (as I/O of all things!) 


sh 


ae 
~« 
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and written into the 5027 by the FCS 
routine from 3774H to 3794H. 


At some time early in the v6.78 pro- 
duction, ISC had SMC mask a version 
of the 5027 for a 64*32 format 
specifically for the CCII. This version 
was given the part number 
CRT-5027-003, and it eliminated the 
need for PROM UAI, although socket 
space for UAI was left on the logic 
board for quite some time after the 
change was made. 


It is my understanding that the 
CRT-5027-003 device is now out of pro- 
duction. On v6.78 systems it is possible 
to replace it with a standard CRT-5027 
and a copy of the original PROM. This 
PROM is an 82S123 (32*8) programm- 
ed as follows: 


> ¢ 
Word Processor 


COLORWORD V4.5 


for the COMPUCOLOR II (V6.78, 8.79), 3621 and INTECOLOR 3651. 


only $50 


* Full screen, fast operation with 20K byte buffer. 
Can be used with any level keyboard. (101 key is recommended.) 


x Automatic word wrap on screen and printer with justification. (30-199 col) 

* Block and character Move, Copy, Delete, Save and Print. 

x String search with optional replace. (Both up and down file.) 

x Operates with or without lowercase character set. (Selectable). 

* HELP facility. Full command summary on screen. 

x Automatic repeat on all keys. 

x Imbedded control codes allows operation of any printer function. 

* Screen preview of printout at any time. 

x Compact file storage in FCS format. Can process existing .SRC files. 

* All FCS commands available: INI, DIR, DEL, DEV. 

? i? i PROGRAM PACKAGE INSTALLERS, 
P O Box 37, Please include 
DARLINGTON, payment with order. 
* WESTERN AUSTRALIA 6070 


(Assembler written) 


(Ph. 092996153) we 


Tom Devlin 
3809 Airport Road 
Waterford, MI 48095 


ADDRESS: 86 81 82 83 64 65 64 67-IF 
DATA: 35 97 D3 F9 68 38 Fi FF 


(I can supply these PROMs at a cost of 
$20.00 each.) 


When ICS went to v8.79, they mov- 
ed the set-up parameters into the FCS 
ROM proper, and thus eliminated the 
need for UAI. Since they used the mask- 
ed part, this data was never used, but 
its presence does make it easy to replace 
the masked (-003) part with one of the 
standard programmable versions. 


The very last Compucolors built us- 
ed a CRT-5048-3, instituted about the 
same time as the REV 4 logic board. It 
is probably not directly replaceable with 
the 5027. The 5048 is used on the 3651 
so availability should not be a problem. 


* 


(32K RAM) 


incl. airmail 
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QUz 


168 REM ## COMPUCOLOR II CHARACTER DISPLAY xx 


165 REM by J. Ramsey 

116 REM »eeePress <RETURN> to escape.... 
128 CLEAR : L=1 : C=2 : PLOT 12,3,64,8 
138 N=28678 : FOR XX=@ TO 127 

148 XX$=RIGHT$(" "4STRSCXX) , 4) 

158 FOR I=1 TO 4 : NeNt2 

168 POKE N,ASC(MIDS$¢(XX$,1,1)) +: NEXT 


178 N=N+4 : POKE N,XX : POKE N#1,C : C=C+i 


188 


IF CC)? THEN C=2 


198 N=N+4 3: POKE N,XX+128 : POKE N+129,C 


266 POKE N+#128, XX+128 : POKE N+129,C 
218 C=C+1 : IF C>7 THEN C=2 

228 L=L+1 : IF L>8 THEN L=1 : NeN+128 
238 NEXT : POKE 33278,8@ 

248 IF PEEK(33278)=8 THEN 248 

2586 END 
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ADDENDUM 


It’s time for some special thanks: to Peter 
Hiner for four extraordinary articles on 
Basic, representing countless hours of work 
exploring, programming, writing and giv- 
ing generously of himself; to Jane and Tom 
Devlin for performances far above the or- 
dinary, and steady support of this magazine 
and its staff; to the faithful writers of this 
Volume - Doug Van Putte, W. S. Whilly, 
and Rick Taubold - who keep us in good 
company; and to all of you who continue 
to fill our office with such good materials. 


We are still only hearing from a very few. 
There is room in our pages for much, much 
more. It’s time for your article now! Con- 
tributions on animation are especially 
needed. 


So far there have been no entries in the 
Colorcue Contest announced in the 
Mar/Apr issue. Does that mean I get to keep 
the prize money? You might try an entry, 
you know. If only one person enters..he 
wins! 


We are sorry to lose Tom Andries as a 
user. He has endured much with a failing 
CCII. If you haven’t tried Tom’s Hour 
Glass graphic from Vol V, Jun/Jul, you’re 
missing a remarkable bit of programming. 
Try compiling it with FASBAS for some ex- 
tra pleasure. It is a simple and elegant use 
of CCII graphics capabilities. 


CUSTOM KEY CAPS FROM ARKAY 


Arkay Engravers sells custom key caps and keyboard 
switches for the CCll and 3651. Colors and cap styles 
are an exact match, in both glossy and matte 
finishes. Front and side face engraving are available 
with up to two-color fill. Prices must be quoted to your 
specifications. This is a good way to expand to the 
full keyboard, and to customize caps for your favorite 
programs. 


Arkay Engravers, Inc. 2073 Newbridge Road, PO Box 
916, Bellmore, NY 11710. (516) 781-9343. Write for 
catalog. 
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Product Review - 
The Gemini 10X Printer 


David R. Ricketts 
198 Jovce Avenue 
Red Bank, TN 37415 


It’s Thursday of sy one week of vacation, it’s raining, you 


want articles, my CCII does not have lower case, my word 


processor is "COMP-U-WRITER 3.3, I have never written for a 
magazine before and I can’t stand rejection. In spite of 
all these handicaps, here goes. 

Spend $300 for a printer, me! the original tightwad, 
when this model 35 works great?? Oh! I gotta have a serial 
board too, even more money, a buffered serial board would 
be nice, even more acney. Oh well, a friend of mine is 
selling the STAR, GEMINI line. "Take one home, try it out, 
pay me if you like it and etc.". I did, I did and I did. 

I bought the Gemini-10X with the 4K buffered serial 
board and I have been using it for several aonths now and, 
if I can do so without sounding like a commercial, 1°11 try 
to share my experience. 

DOCUMENTATION: The "USERS MANUAL" (packed in the box) 
although preliginary, is thorough, even to the point of 
illustrating the Removal of the Upper Case, Replacement of 
the Fuse and Reolacement of Print Head. Also included are 
such things as: Parallel Interface Specifications, 
Connector Signals and Functional Description for Parallel 
Interface, Block Diagram, Code Chart & etc. 

Although a “snow-job" at first, the instructions for 
set-up became clearer as I began to use then. My 
"preliminary" manual usage was short lived as my friend 
(the salesman) provided a much more thorough "USERS MANUAL" 
which provides sample programs for most of the popular 
computers (but not the CCI] - that’s okay ‘cause we 
Compucolor users are accustomed to such). This manual 
utilizes illustrations liberally, is in an easy to read 
format, and it’s 282 pages are a wealth of information, 
right down to the Glossary (paces 266 & 267) and the QUICK 
REFERENCE CHART on the inside back cover. In short, in a 
field where documentation is so Scarce, many manufacturers 
(and software suppliers) could take a lesson from this 
book. 

Did I mention that I did get the 4010X buffered Serial 
Interface? Well, it has it’s very own USERS MANUAL, 
althouoch very much like the “preliminary” it too is 
thorough and includes a schematic diagram, Interface 
instructions for several computers (not CCII). You must 
look at the specifications page to get general information 
on the EIA connection. Also included are complete step by 
step installation instructions for the serial board. 
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I] also purchased a TECHNICAL MANUAL, but have had very 
little use for it as no problems have developed in the 
printer, It does appear to be another excellent 
publication, with plenty of illustrations, a fairly good 
schematic, complete parts list, lubrication instructions 
and much more. The cost of this manual was suprisingly om, 
compared to what we are accustomed to paying for 
maintenance manuals of any type. 


INTERFACE: Thanks, in part, to Ben Barlow’s article 
"The Serial Port" (COLORCUE, AUG/SEP 1981), The interfacing 
was not a big problem. I had to add the Handshake 
Modification to the CCII and determine which pin # to use 
going into the printer for handshaking, wire up a db-25 
connector and plug it in. I must admit that this is the one 
area I used the printer’s Technical Manual as it has a good 
explanation of the serial interface. 

PRINTER FEATURES: Font Styles. include Standard, Italic 
and eight international character sets. Font Pitches are 
Pica, Elite and Condensed (136 columns per line), 
double-width (5, 6 and 8.5 CPI). SQME MORE FEATURES: 
Double-strike, Eaphasized, Underline, Superscript, 
Subscript, Unidirectional, pre-set linefeed to almost any 
value, Form Feed, Variable fora length (# of lines or 
Inches), Variable Header location, Vertical tab, Horizontal 
Tab, Back Space, Graphics - (Normal, Double, Quadruple- 
density), Macro instruction, Downloadable characters (make 
your own), and gore. 

since | was told that it is EPSON compatible, I gambled 
several hours of programaing to assemble Martin P. Rex’s 
Screen Dump program ‘FORUM, SEP/OCT 1982) and try out the 
graphics. Mr. Rex’s program and the Gemini will reproduce 
any and every character you can put on the CCII screen (in 
black & white, of course - unless you use some other color 
ribbon). 

Speaking of ribbons, there is nothing special or 
expensive about the ribbon used in the Gemini. Even though 
discouraged by the salesman, I have been using up ay stock 
of Teletype ribbons. I am careful to look for deposits on 
them before I put one on the printer. Technically speaking, 
it is a Standard Underwood spcol-type, 13x50ma. 

The Gemini {0X handles tractor feed paper (fanfold) 
3-10 inches, Roll paper 8.5-10 inches (5 inch Dia.) and 
Single sheets 8-10 inches. 
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The Gerini does all the Ads say it will and does it 
very well. It is of course, Dot Matrix but even that is 
hard to notice with a good ribbon. I am well satisfied with 
it’s performance to date. The only question remaining is 
that of reliability. I have been through several ribbons 
and probably 10000 sheets of paper without a problea. The 
only failure I have heard of was almost immediate and the 
printer was replaced when it was returned, 

Telling the Gemini what to do is as easy as typeing 


emphasized mode}. Gemini also reconizes some control codes 
1.8. 14(A7 on) causes the printer to print in enlarged mode 
for one- line only, 18 (green)- pica, 19(yellow) - takes 
printer “off-line, 17(red)- puts printer back “on-line” and 
etc. 

| Since I have had no other quality printer I cannot 
coapare the Gemini, but In case you haven’t noticed, I aa as 
pleased with the Gemini as I am with the CCII. All I need 


"lot 27,52" (print 


in italics) or “plot 27,49" (print in 


Gemini features. 


now is a Word Processor that will take advantage of all the 


A Deluxe Keyboard Aid 


For those of you with the ‘‘deluxe’’ 
keyboard, the one with the 16 Function 
keys, this project is a ‘must.’ You have 
all probably wanted to use the Function 
keys for a program but haven’t im- 
plemented them because of the dif- 
ficulties of labelling them appropriate- 
ly. If you have a word processor and 
screen editor that uses these keys the top 
of your keyboard can be cluttered with 
a lot of labels identifying the key func- 
tions. Here is a way to get rid of that 
clutter, and to give yourself some incen- 
tive to use the Function keys as they 
were intended to be used. 


The idea is to fabricate a ‘prism’ that 
lies on the keyboard cover just above the 
row of Function keys, with a function 
description written on the prism just 
above each key. Each face of the prism 
holds the key codes for a different pro- 
gram, three programs for each prism. 
This method permits key labels large 
enough to read comfortably. 


Such a prism may easily be made in 
several ways. Plastic supply houses often 


“~<> SCORE 
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sell triangular solid stock. Have them 
cut a few 12-3/4”’ pieces for you. If that 
appears too expensive, you may want to 
search local drug stores for cheap plastic 
engineer’s scales, triangular scales. 
These usually have finger grips cut 
horizontally which may be covered by 
stiff card stock to make a smooth sur- 
face. For any of the above, you can 
write or type the labels on stick-on label 
stock and fix them so they lay over the 
appropriate key cap. You may want to 
mark a vertical dividing line between 
each key cap position. Color coded label 
stock may be used for added emphasis. 
Some users color code their programs, 
white for the word processer side, green 
for the screen editor side, etc. 


The prism may also be constructed 
from cardboard stock entirely. Using a 
sharp X-Acto type knife, cut the card- 
board to 12-3/4’’ by 2-1/4’’. With a 
drawing pen, ink 16 vertical lines every 
3/4’? to make the divider between the 
seventeen keys on the Function key row 
(this includes the UP ARROW key.) 


Steve Perrigo 
16925 Inglewood Road NE 
B-306 
Bothell, WA 98011 


Measuring from one long edge of the 
cardboard, ink three lines horizontally 
every 5/8’? to mark the sides of the 
‘prism.’ A 3/8’ strip will be left at the 
other edge. This will become a glueing 
surface for fastening the cardboard in- 
to an enclosed triangle. 


Use the knife to score the horizontal 
lines, being careful not to cut all the way 
through the cardboard. A light score 
will do. Write the appropriate key func- 
tions between the vertical lines (or fasten 
stick-on label stock previously 
prepared). Put a fine layer of glue on the 
3/8’’ area, fold the cardboard into a 
triangular shape and slip the glued 3/8”’ 
surface under the open side of the 
triangle to close it. A narrow piece of 
wood and the table surface can be your 
clamps to hold the triangle closed until 


- the glue sets. Instead of glue, you may 


be able to use double sided masking 
tape, if your cardboard is not too stiff. 
To seal the open ends of the ‘prism’ cut 
some triangular pieces from 3/16”’ balsa 
wood (available at any hobby store) and 
glue them in place. U 
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Our cliff-hanger in the last article was the prospect of forc- 
ing a directory entry for CYPHER.PRG, composed on IDA 
and written to the disk. Those of you who suspected this 
was pure braggadocio are in for a pleasant surprise. Let us 
first summarize where we were when we stopped. 


Using an uninitialize disk, we used the WRIte command 
to write the code of CYPHER to the disk, beginning at block 
0005. We then initialized the disk with five directory blocks. 
Next, through Basic, we created the file CYPHER.PRG, 
allowing enough space to include all the file code (this was 
done with a FILE ‘‘N’’ statement). When we tried to RUN 
CYPHER we received an error message because some critical 
parameters had not yet been entered into the directory 
record. Furthermore, we had an overlay table written to 
disk, beginning at block OOOA, with no directory entry at 
all. (But you have created one as homework, by now.) 


The directory doesn’t much care who writes the informa- 
tion in it, whether it be operating system routines or you 
and me. It has a simple format, and as long as all the right 
data is in the right place, the directory will be effective. We 
need to study the directory a bit before we try to create one. 
I’m a great believer in creating ‘‘clean’’ baselines for this 
kind of work. To disect the mysteries of the directory, we 
can begin by taking a clean disk and formating it. Do this, 
and RUN IDAE or some other debugger. Reading the first 
80H bytes into IDA at 8200H, a disassembly shows a pat- 
tern of ‘‘e’s’’, or ESH. This is the deposit of my formatter. 
(Yours may be different.) The debugger instruction is: 


IDA>XREA 88 8208-8288, or from FCS)REA 88 8288-8288 


[I won’t always cite procedures for the other instruments 
each time. Refer to the last issue or the instruction manuals 
for a reminder.] 


In order to get a ‘‘cleaner’’ base line, let’s write some 
00H’s to the first block of the formatted, uninitialized disk. 


IDADF 8288 8588 88 
This will clear computer memory from 8200 to 8500. 
IDAYXWRI 08 8208-8588, or from FCS)WRI 88 8286-8508 


This will write the O0OH’s (NOPs) to the disk. Now initialize 
the newly-formatted disk: 


IDAYXINI CDB:TESTDISK 85, or from FCS)INI CDB:TESTDISK 65 


This will initialize the disk with five directory blocks. 


Now we can copy CYPHER.PRG;02, from our very first 
work disk, to the newly initialized disk. If you have a single 
drive, then use the COPY.PRG software to make the 
transfer. 


Activating IDAE again, we can now inspect the directory: 


16 


PeSTICidAIl 


IDADF 8208 8588 68; clear lots of computer memory to 86H. 
IDADXREA 88 8286-8288; read in the first directory block. 


Within reasonable limits, you should see the contents of the 
directory as shown in Figure 1. The differences will be in 
the Free Space entry, because I am using an 8’’ double-sided 
disk which has considerably more space than the CD disk. 

The first column of Fig. 1 shows the first 23 bytes of the 
directory. Most of them are not used for anything at all. 
The first byte is always OOH (NOP) for the first directory 
block. This byte states which directory block we are look- 
ing at, Block 0 being the first block, Block | being the se- 
cond, and so on up to 04 for the fifth directory block. The 
second byte, labelled ‘‘Marker’’ in Fig 1, is always one less 
than the number of directory blocks specified in the INI 
command. Fig | shows I have five directory blocks on my 
disk (04+ 1). The third byte is always 41H, the ASCII let- 
ter’’A’’, and is the attribute byte for the volume name. The 
next ten bytes, from 8203 to 820C contain the volume name. 
(You can put all kinds of things in there with IDA; colors, 
crazy characters, etc.) The remainder of the bytes, through 
8216 are not used. They will be all OOH in our case because 
we wrote OOH to the disk. Otherwise they will either be ESH, 
on a newly formatted disk, or garbage left over from 
previous disk contents on a used disk. 


Now begins a succession of file entries, the first three en- 
tries shown in the chart, each occupying 21 bytes.. The at- 
tribute byte for an unprotected file is 03H, always. Data in- 
volving two bytes, such as SBLK, SIZE, LADR, etc, are 
written low byte first. The contents, you will notice, follows 
the sequence that appears on the CRT directory listing. The 
‘‘spare’’ byte, first appearing at 822B isn’t used for anything, 
although numbers will sometimes be written there by the 
system software. I puzzled over this byte for a long time, 
failing to establish any correlation between its value and 
what was occuring with the disk file. 1 expected it to be a 
check sum for testing write integrity but I can’t demonstrate 
that. (If you know something I don’t know, please drop me 
a line.) A value of OOH is just fine for the ‘‘spare’’ byte, 
and has never failed to work for me with any kind of file. 


Column three is the FREE SPACE entry for the 
directory.[1] Its attribute byte is 01H, always. There is no 
other meaningful data until SBLK, SIZE and LBC. LBC 
is always 80H for the FREE SPACE entry, so it’s no pro- 
blem determining that. But SBLK and SIZE should be ac- 
curate. Notice that SBLK is OOOA, the first free disk byte 
following CYPHER, which confirms what we wrote to our 
uninitialized disk last time. (This was the beginning of the 
overlay for CYPHER’s alternate encoding table.) The SIZE 
data in your directory will be a function of your drive type, 
CD drives having less free space than MD or FD drives. 
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f R Vr | | | | sane 
W.S. Whill 
| © (5 Oh lhl Tl) a : Y 
| (Wherever) 
The last valid directory entry is always the free space en- want to add another ‘‘real’’ file to the directory, I would 
try, and it counts as one of the files in the directory. My add it beginning at the byte at 822CH, and move my FREE 
directory blocks hold five files, which means I can store four SPACE entry, now amended as to attribute, SBLK and 


“real” files and one FREE SPACE “‘file.’’ You can always SIZE, to the byte beginning at 8241H in Column 4 of Fig 1. 
identify the FREE SPACE entry by the presence of the at- So let’s go to work, and fix our last disk frorn the previous 


tribute byte halt article. The directory should currently look like this (unless 
Column four is unused, and contains all OOH. Should | you really did create a file entry for the overlay): 


FIG 1. MAP OF DISK DIRECTORY BLOCK 


ADDR BYTE TRANS FUNCTION ADDR BYTE TRANS FUNCTION ADDR BYTE TRANS FUNCTION ADDR BYTE TRANS FUNCTION 


ne re ee ee a re es ee eee eee 


8206 88 f NOP 8217 @3 CTILC Attribute 822 61 CTLA Attribute 8241 86 2 Attribute 
Qi 64 (CTL OD Marker 18 43 C 2) 08 9 (Free Space 42 08 @2 
wa------------------------- 9 59 «~6Y 2E 88 «6a Entry) 43 88 2 
62 4) #A Attribute 1A S@ P File 2F 68 2 File 44 88 @ File 
secon nnn none n en enn nanan nnn 1B 648 «64H Name 8238 88 @ Name 45 68 @2 Name 
3 34~«COT iC .,..4% .§ 31 68) 46 60 @ 
44 45 =#O€C iD 32 R 32 88 Oa 47 68 @ 
05; (S35 LB TS | amet edcenetnsenseesntenne (Semen endenntnameneneRnenaSe = _mHEManoS SN neSManmmEmi Ramet 
Mm SS tT Volume | a a File 33 68 8 File 48 06 @ File 
8? 44 «OD Name iF 32) R Type 3488 Type 49 08 @ Type 
a8 49] 82286 47 G 35 68 44 86 2 
67...53... $i 6 6 | Mererendwccwneneescieencedees = swarmnngdtonnacnecsesennenine,  adandasqcenwennasswee seasons 
GA 48 nm we 4 Version 36 88 Version 48 68 2 Version 
Pee ee nee fT) 8) eee Rasa seeieeemeSRaRRee! “Segre EN eaemeNM REE | itera am eptan semis aeereh mae 
6C 28 = space 22 «85 SBLK 37s BA SBLK 4¢ 86 @ SBLK 
seen ewenscnwenasonnnnacenne 2388 8665 38 88 888A 4) 68 @ 
i - . |” EARN RNCNE NEN = | (RENE damna samme menmme: | | idles mba mma eim eNews cmrae 
GE 66 @ 24 «85 SIZE 39 82 SIZE 46 86 2 SIZE 
OF 68 @ 23588 0085 A 12 1282 4F 66 2 
8218 88 2 HER) 9  eskecensemoetewnarsetateesse = anneennesaedeneanensascennse 8 — shaansuensesaqsenmenenseg aes 
nm we. 2 Used 26 «88 LBC 3B £8 LBC 8258 68 2 LBC 
a. te 86° ——C SERS EEeeeRteenenSeeeenesen SKEKRSENAN RRR aee | RSS R SNS MER emir ema 
13 88 @ 27 8B LADR 3C BB LADR 5] 668 LADR 
14 66 2 28 = 82 8206 3D 88 32 66 @ 
Fon Se OE i ae cnenn seen sete eakee”  SnkeRtaneeHKeREneReeaataRee easaN ss saem eh eat nrnke asi 
16 66 2 29 — «8B SADR 3E OBB SADR 33 «88 a SADR 
2A 82 8268 3F «8 344 «686 8 
2B OB Spare 8248 = 88 Spare 99 «(888 Spare 
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DIRECTORY DF@: TESTDISK @5 


83 CYPHER.PRG;81 8805 6885 86 8861 6288 
81 FREE SPACE> 888A 1262 


Let’s reinitialize this disk (no, it won’t hurt the files we 
have on it!) and start from ‘‘scratch,’’ making the direc- 
tory conform to our needs. Go ahead! Have faith! 


IDAXINI CDB:TESTDISK 85 


Now print the new directory on the screen and write down 
the SIZE of the FREE SPACE entry for future use: 


IDAXDIR 3 (my FREE SPACE is 1287H blocks.) 


Let’s clear some computer memory, 


IDA)F 8268 8586 68 


and read in the first block of the new directory: 
IDADXREA 88 8208-8288 


You may now do a disassembly or hex dump from 8200 to 
8280, and fill in the values you find there in the first col- 
umn of the chart in Fig 2 (from addresses 8200 to 8216 only). 


Using the chart of Fig 2 as a worksheet, and working light- 
ly in pencil at first, let’s prepare to construct a directory for 
our disk, making entries for CYPHER.PRG and the overlay. 
Working now in column 2, the first directory entry, we enter 
the value 03H at address 8217, because the attribute for a 
‘freal’’ file is always 03H. 


From 8218 we enter the file name, CYPHER, in hex, as 
43H, 59H, 50H, 48H, 55H, 52H. Beginning at address 821E, 
we enter the file type, PRG, as 50H, 52H, 47H. At address 
8221 we enter 01H for the version. (Are you doing this as 
we go?!) 


At address 8222, we enter the SBLK (start block), low byte 
first, OSH, OOH (=0005H), and the SIZE of CYPHER (5 
blocks, remember?) at address 8224; 05H, 00H (= 0005H). 


We settled on a (L)ast (B)lock (C)ount of 80 for CYPHER, 
last time, even though that’s not entirely correct; but we can 
use it. At address 8226, enter 80H. Now the fun begins. At 
address 8227, we enter the desired LADR (loading address) 
and it will be 8200, but low byte first: OOH, 82H. We can 
get fancy with the starting address. Remember that CYPHER 
begins with three NOPs that don’t do anything. At address 
8229, enter ‘‘8203’’, low byte first: 03H, 82H. Put a 00H 
in the ‘‘spare’’ byte slot (=00H) and we’ve done it! 


But wait! We must still make a FREE SPACE entry. So 
move over to the next file column, and put the correct at- 
tribute byte at address 822C. What did you put there? A 
01H, of course. 01H is the attribute byte for FREE SPACE. 
Now add the SBLK at address 8237, low byte first. OSH (for 
the directory) + OSH (for CYPHER) = OA as the next 
block. (S + 5 is A, in hex.) 


The SIZE will be the free space you noted from the freshly 
initialized directory (1207 for me) minus the blocks we Just 
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assigned to CYPHER (=05H). So the FREE SPACE SIZE 
is, for me, 1207-0005 = 1202. I will put 02H, and 12H into 
my chart beginning at address 8239. Put 80H in the LBC 
slot at address 823B. 


Let’s put the values from the chart into memory. With 
IDA it’s very easy: 


IDA)P 82868 


Move the cursor right or left with the arrow keys. As you 
enter hex numbers, the cursor will automatically move to 
the next slot on the right. When you reach the end of the 
line, the next set of addresses are automatically displayed. 
Begin at 8200 and keep on entering data, checking addresses 
and contents as you go, until you reach 823B, the LBC data 
for FREE SPACE. 


Check it out with a hex dump from 8200 to 8240. 


If it all checks out, write the directory you just made to 
disk: 
IDA>XWRI 88 8208-8288 


Display the directory: 


IDADXDIR 
Run CYPHER from your new directory: 
] 
axa Ws DA>XRUN CYPHER 


WOW! Now return to IDA and clear 8200-8500 with 00H 
again. Read the directory back in: 


IDADXREA 88 8286-8288 


Using the Chart of Fig 2, erase the numbers in column three, 
the FREE SPACE column. We will now create a directory 
entry there for the overlay. 


At address 822C, we must change the attribute from 01H 
to 03H. We can now enter the file name, TABLE!.OVR:01 
in succeeding bytes. (That’s this succession of hex numbers, 
my friends: 54, 41, 42, 4C, 45, 31, 4F, 56, 52, 01.) 


SBLK is the same is it was, OOOAH, low byte first. Enter 
at 8237H. Enter the SIZE as one block, 0001H. The LBC 
must be calculated somehow. LBC tells how many of the 
128 disk block bytes are being used. It does not mean how 
many are left over! An LBC of 80H means all 128 bytes 
in the block are used. You will have 34H bytes or so in your 
overlay, depending on whether or not the last two space 
bytes were saved with the table. Put LBC at 823B. 


The loading address is 8448H. That’s where the table 
begins, and that’s the point we saved it from (see last 
Colorcue). But what about the start address? 


SADR is used by the system ROM to get a LDA or PRG 
program by placing this number in the program counter. 
ROM will not be looking for SADR in our file type OVR, 
which we just made up. We can make SADR OOOH, then. 
We prevent SADR from causing trouble by LOADing the 
OVR, which simply puts the bytes in memory, instead of 
RUNning it, which would cause ROM to look for a starting 
address. 
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We need to put OOH into the ‘‘spare byte’’ slot at address 
8240. Now it’s your time to make the necessary FREE 
SPACE entry in column four, the third file entry. After 
you’ve done it, refer to [3] for my answers. 


Write the new directory to disk, right over the old one: 


But what happens when we look beyond the fifth direc- 
tory entry? We will find two bytes preceeding the sixth en- 
try. The first of these will be 01H, indicating that we are 
in the second directory block (of five.) The second byte will 
be 04H, the total number of directory blocks minus one. 


The following byte will be the attribute byte for the sixth 
directory entry. 


IDA)XWRI 88 8288-8288 
IDADXDIR 

IDAYLOAD CYPHER>PRG ;@1 
IDA>LOAD TABLE! .OVR 
IDA>G 8268 


It should be clear from this exercise that you now have 
a ready tool for reconstructing a clobbered disk direc- 
tory....IF... you have a printout of the directory to work 
from. I periodically make a directory printout of all my im- 
portant disks and store it in the disk sleeve. Not only is this 
a convenient way to view the disk contents, but it is a good 
way to have the data on hand for a reconstruction, ... and 
who hasn’t needed a reconstruction at one time or another. 


Even without a directory printout, IDA can search a clob- 
bered disk, one block at a time, locate programs and create 


There it is, folks! You have broken into the inner sanctum! 


FIG 2. DIRECTORY WORKSHEET 


eam DISK VOLUME SPACE-----  -------1ST FILE ENTRY------- 9 -------2ND FILE ENTRY------- 9 -------3RD FILE ENTRY------- 
ADDR BYTE TRANS FUNCTION ADDR BYTE TRANS FUNCTION ADDR BYTE TRANS FUNCTION ADDR BYTE TRANS FUNCTION 
8286 «8 ’) NOP 8217 Attribute 8220 Attribute $241 Attribute 
81 64 CTL OD Marker 18 20 42 
ween nnn nnn nnn nnn nn nenn nn 19 2E 43 
@2 41 #A Attribute 1A File 2F File 44 File 
EES Ren canna mem anmmmmnemae 18 Name 8238 Name 45 Name 
so 4 6T 1C 31 44 
644 645~<«‘éE 1D 32 47 
hs is X SE. tt SSS tala dedatatatatatatatat 
6 34 OT Volume 1E File 33 File 48 File 
87 44 ~= «OD Name 1F Type 34 Type 49 Type 
se 49 =] 8228 35 4. 
B93 8 tenn nnn n nnn nnn enn nnn ne (tere r nnn n rane nnn n nnn nnnnn nnn rene n nnn nnn n nnn seen sennne= 
BA 4B K 21 Version 36 Version 4B Version 
| | aa a 
8C 28 = space 22 SBLK 37 SBLK 4C SBLK 
--------------------------- 23 8885 38 a8GA 40 
SD 089 etttenwereeeecencesenecnens 8 «— Sewnnenanenacccncesnnceccene 8 semennannncenasennesereesee= 
GE 88 @ 24 $1ZE 39 SIZE 4£ SIZE 
OF 68 2 23 8885 3A 1262 4F 
8216 88 @2 Nit RnticenachcdeekcanbienKten  MESERENReknaenndCERe, daeieswannn haat meeierennes 
1] 66 @ Used 26 LBC 3B LBC 8258 LBC 
| eae 
13 66 2 2? LADR 3C LADR sD | LADR 
14 08 @ 28 8268 30 92 
15 8B tenn nn nn nnn en en nnn enn (eee enn n renew nnn wenn renee nnn rattan renner en nnnnnnnnen= 
16 66 @ 29 SADR 3E SADR 33 SADR 
2A 8266 3F 34 
2B Spare 8248 Spare 29 Spare 
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new directory listings for them. If you know anything at all 
about your programs, the construction of their source code, 
their text, or whatever, IDA will assist in retrieving them 
from a destroyed disk. It would be helpful to make a “‘dry 
run’? with CYPHER.PRG, by reinitiallizing the disk we have 
just created, and by means of a block to block search, get 
CYPHER back into computer memory and SAVE it. 


A review of FCS SAVE command will also be useful.[2] 
It is often used to save memory contents as a PRG file. You 
will have noticed that when we use the FCS REAd or WRIte 
commands they take a similar format: for example: 


IDADXREA 88 8288-847D; Note dash between last two numbers. 


This means ‘‘read beginning at block 00 into memory star- 
ting at address 8200, and continue reading until memory is 
filled to address 847D.’’ The dash between 8200 and 847D 
indicates that both numbers are memory addresses. If the 
dash is omitted, the last number, 847D, indicates how many 
bytes are to be read—in this case far too many for the pur- 
pose. FCS allows you to specify either the last memory ad- 
dress to be filled (by using the dash) or the number of bytes 
to be read (without the dash.) This same convention applies 
to the SAVE command as well. The SAVE command also 
permits you to specify LADR and SADR, and this is useful 
for converting LDA files to PRG from IDA. The format 
is a little tricky. Here are some possibilities for a mythical 
LDA file, CYPHER.LDA: 


Example 1 - SAVE CYPHER.PRG;01 8288-8470 8203 


This tells FCS to save the code beginning at 8200 and en- 
ding at 847D to a disk file. LADR will be 8200 and SADR 
will be 8203. 


Example 2 - SAVE CYPHER.PRG 8266-8470 


We omitted the version number this time, so FCS will supply 
one for us. Since we omitted a specific SADR, FCS will 
make SADR the same as LADR, in this case 8200. 


Example 3 - SAVE CYPHER.PRG 8268 8288 8283 7608 


This is a most sophisticated instruction. We have changed 
the memory specification to show, not the end address in 
memory (847D in the first examples), but the number of 
bytes (0280H) to be saved. We have indicated SADR is to 
be 8203H. But the last number is telling FCS that the code 
we want to save isn’t currently located in memory at 8200 
at all. It is really in memory beginning at 9000, but we want 
it to read from disk to memory, henceforth, with LADR 
= 8200. FCS will write 0280H bytes, beginning at 9000 on- 
to the disk, label it CVPHER.PRG and set LADR = 8200, 
and SADR = 8203. What use is this? Not much, in fact, 
and a ‘‘neater’’ way would be to use IDA to relocate the 
code where we actually wanted it to be in memory before 
a SAVE to disk as a PRG file. 


Use Example 2 if LADR and SADR are to be the same. - 


Use Example | if you want to specify an SADR not the same 
as LADR. 


We have not exhausted the potential of IDA by a long 
shot, and we’ll continue next time with the monitor discus- 
sion I promised for this time. (The editor won’t give me any 
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more room.) But one of IDA’s most useful features is the 
reports it can generate to the printer. Any screen display, 
from the top of the screen to the current cursor position may 
be dumped to the printer by simply pressing CMD/PRINT. 
If you do not have the extended keyboard, this may be 
simulated by holding down at the same time the following 
three keys: SHIFT/CONTROL/V (cyan color key). 


To set the port Baud rate, type from the IDA prompt 
some form of Bn(2), where n=1 to 7, and the optional (2) 
adds two stop bits, example; 


IDA>B? ; for a Baud of 9688 and 1 stop bit. 


IDA will also permit you to write on the CRT, in a 
simulated CRT mode, to make notes on the screen before 
you dump it! RUN IDAE, and XLOAD CYPHER.PRG. 
Disassemble from 8200 15+ to get a screen display. Now 
enter the simulated CRT mode by pressing the BREAK key, 
followed by CMD/CRT (COMMAND key and SHIFT/CRT 
all at the same time.) You may now use the cursor control 
keys to position the cursor anywhere on the screen, type your 
messages, then press ESC to return to the IDA prompt. 
CMD/PRINT will now dump the edited screen to the printer. 
Several of the printouts in my first article were constructed 
in this way. If you haven’t ordered IDA yet, there’s still time. 
Much more fun to come! W. S. Whilly. 0 


[1] If there were formerly a “real” file in this entry column on your 
disk, the file name and type may still be visable. The DELete com- 
mand does not erase these parameters, but the attribute byte will 
be O1H, telling FCS that this is, indeed, the FREE SPACE entry. 


[2] This information has been published previously by Jim Minor 
in DATA CHIP, -29, Dec/Jan 1982. Jim has a thorough presen- 
tation here of the REA, WRI, SAVE and LOAD commands that 
has not been published elsewhere. | highly recommend this article 
as a clear and thoughtful presentation of this material. 


[3] SBLK = O00B; SIZE = 1202-1 = 1201; LBC =80.[I72] 


FIG 3. Hex Dump of Directory with CYPHER.PRG 
as the only file. Note FREE SPACE entry. 


IDADH 8288 8288 


8268 49 33 4B 26 28 88 66 68 
8218 43 59 38 48 45 52 38 52 


8228 86 86 62 81 61 68 66 88 
8238 86 62 12 88 06 88 86 88 
8248 86 66 68 68 88 86 88 88 
8258 80 68 66 68 88 G8 88 88 
8268 06 66 88 68 88 G8 88 88 


8278 06 06 66 88 66 88 86 88 
8288 86 
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ITEM PRICE 


COMPUTERS : 


Intelligent Systems Corporation: 
Model 3651, 32K RAM, 117 key keyboard, lower CaS€ eccccccecceeeee ask for price 


Morrow Micro Decisions 


MD2, CP/M computer system, 2 diskdrives, single sided, 
190 K, with Wordstar wordproceSSOr cecccccccccccccccccccccccccccs f 14490 


MD3, CP/M computer system with 2 diskdrives each 386K, 
Liberty monitor, with complete set of business software seccsesee $ 1,845 


(1011, complete 11 mbytes hard disk computer system, 
high resolution graphics monitor, complete set of 
business software, CROSSES COSHH SEESSEHSHEHEEHEEHEESESESESEEOSEEEE $ 2,645 


NEC APC 
True 16bit CP/M86 (or MS.00S) computer system, with high resolution 
graphics monitor, 2 8" diskdrives each 1 mbyte, sececcccccccceses § 2,795 


USED CCII 32K imcl. SOFCWATE cedccccccccccccesedoececsoceceeessese $ 500 
USED. KAYPRO. IT incl. sOftware ccccccccecccccsceccecceeccecescescose § 1,300 


PERIPHERALS AND OPTIONS: 


Bell kit and simple soundware kit for 3651 Seeeecccotecceseses S$ 25 
CCII RS232 CTS kit "handshake" Sededeecccccceecces 2 
Lower case character kit, switchable eccccccccccccccccces 38 
Joysticks with instruction manual eo ccccccccccccceces 33 
Bank board 56 K EPROM, software selectable occccccccecccccccce 286 
Disk drive 5 1/4" for 3651 cable included gekbce cee deescebece 350 
Oisk drive S 1/4" for CEIT VG.78 cable idel, ccoccvsisaseconsnce 250 
Disk drive °5:4/4" fot CCID V8.79 cable incl. ..«ccscccenaseecvaces 250 
Keyboard upgrade kit for CCII, 72 keys to 117 keyS eecccccccccccs 150 
Keyborad upgrade kit for 3651, 72 keys to 117 keyS eecccccccccece 250 
Wordprocessor keycaps eoccccccccccccecces 31 
PRINTERS: 

Gemini 10X dot matrix printer eecccccccccccccccce 359 
Gemini 15X dot matrix printer coccccccccccccecece 495 
RS232 Serial interface board ececccccccccccccece 55 


Brother HR-15 daisy wheel printer with sheetfeeder cecccccccceces 852 
Cable for printer to computer 


@eeeseaeoeoeoeeeo ee eeeene 25 


*### all items subject to availability **** 
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VISA, MASTER CHARGE AND AMERICAN EXPRESS ACCEPTED 


INTELLIGENT 
COMPUTER 
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12117 COMANCHE TRAIL ¢ HUNTSVILLE AL 35803 ¢ PHONE 205 881 3800 


Disk Salvage 


Bob Mendelson 
27 Somerset Place 
Murray Hill, NJ 07974 


[Because of differing ROM calls and memory mapping, this program is 
not suitable for the CCI. Refer to W.S. Whilly’s article, this issue, for a 
suitable equivalent procedure for thie CCIl. ed.] 


The unexpected happened. I intended to initialize a new disk 
in drive #1 but I forgot to type in the ‘1’, and lo and behold 
I had reinitialized a utility disk with 30 programs. ‘DIR’ only 
printed out an empty disk. I knew that INI does not wipe 
out the disk in the same way that formatting does, but I 
had only a vague idea of how the Directory is constructed. 
To explore this, the first 9 sectors of the directory were load- 
ed into memory at AOOOH by use of the REA command. 
From here on it was easy. 


The first 16 bytes are used for the ID of Sector 0, the name 
of the disk, followed by 10 ‘don’t care’ bytes. It was also 
apparent that only the first 80H bytes of Sector 0 are cleared 
to OOH. Everything else was unchanged; that is, the rest of 
the directory entries, the final line that shows the sectors 
used, the number left, and the delimiter, 80H (LBC), and 
all the program code. 


My first try was to type in the data for the first 5 pro- 
grams by use of the DIR printout that had been made for 
my library reference. This was done with the CPU monitor 
and an ASCII table for letters. It was primitive but not dif- 
ficult. Each line of the directory uses 15H bytes, the last 
one of which is a ‘don’t care’ spare byte. Therefore, new 
lines start at addresses A017, AO2C, A041, A056, AO6B... 
ending at AO7F. A080 has a two-byte ID for Sector 1, which 
is followed by another set of 15H data blocks. Following 
the last line of active directory entries, there is an 01H, 
followed by 10 bytes, each 00H, and then the calculated 
number of sectors used, the number remaining, and an 80H 
delimiter. 


The program in Listing 1. was written to allow simple re- 
entry of the first five lines of the directory. Following re- 
entry, the program will then write the data onto the disk 
and call for a directory printout. Should the directory have 
four or less lines, the last line will have been wiped out. 
Therefore, after typing the last data line, an 01H at the start 
of the following line will automatically calculate the used 
and free sectors and write them to the disk. 


To save publishing space for the Listing, I have omitted 
the program instructions from the SRC code. They are 
printed here instead: 


INSTRUCTIONS FOR UNLOCK.PRG - 


THIS PROGRAM WILL RECOVER A DISK THAT WAS INITIALIZ- 
ED BY MISTAKE IF A PREVIOUS PRINTOUT OF THE DISK DIREC- 
TORY IS AVAILABLE CONTAINING THE ORIGINAL DIRECTORY 
INFORMATION. 


TO OPERATE THIS PROGRAM, ENTER THE COMPLETE DATA 
FROM EACH LINE AS IT APPEARS ON THE PRINTOUT. DO NOT 
PRESS ‘RETURN’ UNTIL THE ENTIRE LINE IS ENTERED. IF NO 
PRINTOUT IS AVAILABLE, USE THE ‘REA’ COMMAND AND ESC 
P TO DETERMINE THE START OF EACH PROGRAM BLOCK AND 
THE PROGRAM SIZE. 
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THE LAST BLOCK COUNT (LBC) MAY BE 80H IF IN DOUBT. 
IF LADR (LOAD ADDRESS) AND SADR (START ADDRESS) ARE 
NOT KNOWN, CHOOSE ONE AND LATER CHANGE TO THE 
CORRECT ADDRESS. ONLY ALPHABETICAL CHARACTERS MAY 
BE EDITED DURING DATA ENTRY UNDER CURSOR CONTROL. 
DO NOT ATTEMPT TO CHANGE BEYOND THE ’;’ FOLLOWING 
THE FILE TYPE. NUMBERS ARE IN HEX, AND HANDLED IN THE 
SAME WAY THAT THE MONITOR HANDLES THEM; THAT IS, 
ONLY THE LAST FOUR HEX DIGITS WILL BE ACCEPTED BY THE 
PROGRAM. ENTER A SPACE TO SEPARATE NUMERICAL ENTRIES 
ON EACH LINE. 


IF THE TOTAL NUMBER OF LINES IS FOUR OR LESS, TYPE ‘01’ 
FOR ‘ATR’ TO END THE INPUT AND HAVE THE PROGRAM 
AUTOMATICALLY FILL IN THE ‘FREE SPACE’ DATA. IF FIVE LINES 
ARE TYPED IN, THE ‘FREE SPACE’ DATA WILL BE SUPPLIED 
WITHOUT MANUAL HELP. C) 


O3 LOTSAWORK. BAS 


ef O3 PIRATED «COM or 


OZ3 IRREPLACABLE.PRG 
O03 SUBSCRIBERS. RRND 


LISTING 1 Disk Salvage: UNLOCK 
By R. Mendelson, Vé-84 


A program to recover contents of a disk that was 

; initialized in error. Only the first 88H bytes 

; need to be restored to recover the directory. 

; Remaining directory blocks & programs are intact. 


4. PR ee Pr rE Pa et ere ay eo 


AG1? BUFF €QU BAG17H ;Store DIR string 
8183 CI EQU 8163H  ;Console in 

8189 CO EQU 8169H  sConsole out 

8168 CPUOS  EQU 8168H  ;CPU Monitor 

868) CR EQU 13 ;Carriage return 

BE74 CRLF EQU BE74H Next line + GRN FG 
QBEF EOS EQU 239 End of string’ 

6133 EXPR EQU 8133H  ;Convert ASCII -) HEX 


8612 GR EQU 18 
888A LF EQU 18 
818F LO EQU 818FH 
9FFF KEYBF EQU 9FFFH 
812A OSTR QU 


‘GREEN 

sLine feed 
‘Character to CRT 
;KEYBOARD READY flag 
Print string 
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6811 RED 
8628 SPACE 
6613 YEL 
QF27 VECT 


EQU 17 
EGU 26 
EQU 19 

— EQU 6F27H 


‘RED 

‘SPACE 

YELLOW 
‘Restart vector 


Note: Leading zeros may be omitted from hex inputs. 


BeGé AF 

BOG! 32FF9F 
BG84 CD8381 
BGG? 214981 
BbGA CD2A81 


ORG 


START: 


8BG8GH 


KEYBF i 

Cl 

H,MSGIA ;Disk warning 
QSTR Print it. 


‘Note: If 61 is hit before adding any line to the 
‘ directory, Free Space SBLK will be set at 8869 
; & SIZE at 6008. 


BeBD 3E89 
BOGF 323582 
BGi2 AF 
BG13 323682 
BG16 323782 
BA19 323882 


BeIC 2117A8 
addr 

BRIF 2232B2 
B822 32FF9F 
B825 C8381 


BG28 21098! 
B62B CD2A81 


BO2E 2117A8 
BO31 AF 
B632 8448 


sSet counter just past directory name and fill unused 


PROTEK: MV] 


STARTI:; LX] 


SHLD 
STA 
CALL 


LX] 
CALL 


LX] 
XRA 
MV] 


* bytes with @6H.... 


BO34 77 
B435 23 
BG36 85 
Bé37 023488 


BO3A 21F9BI 
Bé3D CO2A81 
B648 3E65 

BG42 323482 


Be45 3628 


FILL: MOV 
INX 
DCR 


JN2 


READ: LX] 
CALL 


SCREEN: MV] 
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A,? 

SBLKX ;Set SBLK=8889 
a ‘Clear Acc 
SBLKX+1 ;Set SIZE to 
SBLK+2 ; @888H and 
SBLK+3 5 store it. 
H,BUFF j;Load ptr 
ADDRI 
KEYBF } 
C] 


‘Save it 
+ (ARB) 


H ,MSG2 
QSTR ‘Print them 
H , BUFF 

~ 

B,7FH-17H 


M.A ;Byte to memory 

H sindex pointer 

B sDecr counter 
FILL sFill next memory 
H,MSG3 sPoint to MSG 
OSTR ‘Print it 

Ayo sNumber of lines 
COUNT ; to be typed in. 


A,SPACE ;Set CRT. position 


;Column headings 


Be47 COGFE! 
Be4A 338 
Bo4C CDFG! 


Ba4F COBIBG 
B@52 FE3! 


“BA54 CADEBS 


Space 

BG57 04638 
B85? 28 
BBA 77 
BaSB 23 
Best 3628 
BOSE COBFa! 


B66! CDBABA 
BG64 3587 
B64é BS 
BA67 C261B8 
BOSA 3E2E 
Ba6C CDBFEI 


BOF CDBARA 
BG72 3EBA 
Bé74 B8 
B675 C26FB8 
B678 3E3B 
Ba7A CDOF8! 


B67) CD2E8! 
Be8é 28 


B68! CD2EBi 
Bé84 EB 
Bb85 223582 
B688 EB 


Bé89 CO2EB) 
Best EB 
B88D 223782 
Ba98 EB 


Be?! CD2EB! 
B694 28 


B695 CO2EBI 


R698 CD2EBI 
Keybd 

B89B 23 
B89C 223282 
BO9F 3A34B2 
B8A2 3D 
BBA3 FERS 
BGAS CAIFBI 


ATR: 


TYPE: 


VERS: 


SBLK: 


SIZE: 


LBC: 


LADR: 


SADR: 


30H 
M,A 


A, SPACE 
LO 


Y2 
A,? 
B 
NAME 
are 
LO 


Y2 


HEXNU! 
H 


HEXNU! 
HEXNL] 


H 
ADDRI 
COUNT 
A 
8 
FREE2 


sFake zero 


‘Input ATR 
sls it 81H? 
sYes, set Free 


‘No, ASCII to HEX 
‘Back to byte #1! 
sInsert hex dt 
;oefor next char © 
‘Insert CRT space 
‘Print it. 


‘Input file name 
‘Check if all 

+ chars are in, 
3No, go back. 
‘Add TYP delimit 


‘Get file TYP 

;3 more bytes in? 
‘No, go back 

‘Add TYP delimit 
‘Get version in. 
‘Overlay MSB w/LSB 
‘Get SBLK 

‘From DE to HL 
‘Save it, 


‘Back to DE 


‘Get file soze 


‘Get LBC 


‘Overlay MSB of LBC 


‘Get loading addr 
‘Get SADR from 
‘Pass spare byte 
sSave ptr addr 


‘Get prev line cnt 


See note below 
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‘Note: If 5 lines are being typed, stop before adding a 
+ Sth line ‘Free Space’ line, since the rest of the 


, directory is still intact. 


BAAS 323482 STA COUNT 

BAB CD748E CALL CRLF For next dir line. 
BOAE C345B8 UMP SCREEN ;Start next line. 
PERDUE ROR cas ¢acnustknenret0res ecnceieessas ‘ 

BQB1 2A32B2 Yi: LHLD ADDR! j;Current buff addr 
BOB4 8488 MV 1 B 8 ‘Reset char counter 
BABS AF XRA i A=8 

BBB? 32FF9F STA KEYBF1 ;Clear keybd flag 
B@BA CDO381 2: CALL sO] ‘Input character 
BOBD FEIA CP] 1AH ‘Back space? 

BOBF CAC9BB JZ Y4 sYes, jump 

sInput to buffer..sees ‘eelame cicateene MOreerie ry 

B6C2 77 MOV M,A ;Char into buffer 
BaC3 23 Y33 INX H ‘Incr buffer addr 
B8C4 223282 SHLD  ADDRi  ;Update buff ptr 
ROC? 84 INR B ‘Incr counter 

Bac8 C9 RET +..for next char. 


sBackspace routine. ..seseees 


Bac? 28 Y4: DCX 


Baca 85 DCR 
BeCB C2C9B8 JNZ 
BECE 223282 SHLD 
B6D1 3E8B MV] 
BbD3 CDeFE! CALL 
BGDS 3EAD MV I 
BeD8 CDaFA! CALL 
BeDB (34586 JMP 


H. ;Back up buff ptr 


B + & start of line. 


Y4 3Do again! 


ADDRi ;Update buff ptr 
A,8BH Erase line, 
LO 


A,CR ;Carriage return 


‘Start line over, 


‘Insert FREE SPACE entry if dir < 9 lines 


BeDE 0438 FREE: SUI 
BeE® 28 DCX 
BBE! 7? MOV 
BBE2 23 INX 
BGE3 AF XRA 
BeE4 848A MI 
BeES 77 FREEL: MOV 
BOE? 23 INX 
BeEB 85 DCR 
BOE? C2E4B0 JNZ 
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38H ‘ASCII to HEX 
H ‘Back 1 buff addr 
M,A ‘Number into buff 


6 A=8 
B,18 ‘Set 1@ blanks 


M.A ‘Insert zero 

H 

B ‘Reduce counter 
FREE =; ]¢ Bt6 


‘Calculate next free block (SADR)..... 


BREC 223282 
BREF 2A35B2 
BGF2 EB 
BGF3 2A3782 
BOFS 19 
BBF7 EB 
BBFB8 2A32B2 
addr 

BEFB 73 
buffer 

BBFC 23 
BRFD 72 
buffer 

BOFE 23 


‘Calculate blocks still free (SI2E).. 


+ DE still has SBLK - 


BFF 2232B2 SHLD ADDR 
Bia2 7B MOV A,E 
complement 

R183 2F CMA 

Bi84 SF MOV E,A 
Bi85 7A MOV A,D 
B18é 2F CMA 

B87 97 MOV D,A 
Bias EB XCHG 

Bi89 1681 MV] Er? 
Bi8B 1688 MV] 0,8 
Bied 19 DAD D 
BiGE EB XCHG 

Bi@F 2682 MV] H,@2H 
Bill 276 MV] L,76H 
Bi{3 19 DAD D 
Bii4 €B XCHG 

B115 2A32B2 LHLD = ADDR 
addr 

Bi18 73 MOV M,E 
B119 23 INX H 
BILA 72 MOV M,D 
BIiB 23 INX H 
slerminate directory ...... cuawekaseen 
Biic 3688 MV] A, 88H 
BITE 77 MOV M.A 
BiiF 216@FB2 FREE2: LX] H ,MS64 
B122 CD2A81 CALL QSTR 
B125 212582 LX] H ,MSG5 
B128 CD2A8} CALL  QSTR 
B12B C3278F JMP VECT 


ADDRI 
SBLKX 


SIZEX 
D 


ADDRI 


‘Save buffer addr 
‘Get Jast SBLK 
‘Save it in DE 
sGet SIZE 

sAdd for SBLK 

» and move to DE 
‘Current buffer 


‘Place LSB in 


‘Place MSB in 


‘Save buffer addr 
Make 1’s 


: of E register 
‘Save it, 

:1’s complement of 
; D register 

; and save it too. 
sComplement into HL 
‘Set DE=668) 


sConvert to 2’s comp 
sMove it to DE 
;lotal sector count 
; is 276H 
‘Difference in HL 
sMove it to DE 
;Current buffer 


;Insert LSB 


; and MSB, 


;Delimiter (LSB) 
; into buffer 


;Put dir on disk 
‘Print to CRT 


;Return to system 
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sVECT is restart vector RST, and the technical end of 
i 


the program. 


sSubroutineS wssseeeees evens 
BI2E 223282 HEXNUI: SHLD 
addr 

Bi31 C0428! CALL 
Bi34 EB XCHG 
B135 2A32B2 LHLD 
B138 73 MOV 
B139 23 INX 
BISA 72 MOV 
B13B 23 INX 


ADDRi sSave buffer 


sMove HL to DE 
M,E ;insert LSB 


H 
M,D ; and MSB 
H 


sNote: DE retains the latest value for 


; use in SBLK & SIZE - 


B13C 3E26 HEXNU2: MVI 
BI3E COeFE! CALL 
Bi4i CY RET 
B142 BE81 HEXIN: MV] 
B144 C0338! CALL 
B147 E} POP 
B148 C9 RET 
sString storage..s.ssees adees 


B149 60135852 MSGIA: DB 
B14) 4F475241 

B15! 4D28544F 

B1S9 28524558 

B159 414952 

BIS 284C4F53 DB 
B168 54284449 

B164 32454354 

B168 4F52592D 

B1éC 12 

BiéD 83868242 DB 
B171 5928522 

B175 264D454E 

B179 44454(53 

B17D 4F4E13 

B188 63888458 OB 
B184 40414345 

B188 26114449 

Bi8C 33482054 

B198 4F28 3 

B192 42452632 DB 
Bi9é 45584149 

Bi9A 352454428 

BI9E 13494E28 

BIA2 44524956 

BIAé 452) 
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A,28H 3’space’ 
0 ;CRT display only 


Cyl  s4-byte ASCII to 2. 
EXPR = sHex # in HL 


12,YEL,’PROGRAM TO REPAIR? 


* LOST DIRECTORY-’ ,GR 


3,8,2,’BY R. MENDELSON’ , YEL 


3,0,4,/PLACE “RED, “DISK TO ° 


“BE REPAIRED ’ ,YEL,’IN DRIVE-’ 


BIA8 83288412 
BIAC 28484954 
BBB 28414659 
B1B4 28484559 
BiB8 26544F28 
BIBC 434F4E54 
Bice 4945545 
BiC4 298DBABA 
B1C8 EF 


BIC? 41545228 MSG62: 
BICD 46414045 
BiD1 26545956 
BIDS 45285652 
B1D9 28265342 
B1DD 4€4B2628 
BIE! 33495A45 
BIES 28284042 
BIE? 43284041 
BIFL 33414452 
BIFS @D8AGA 
BiF8 EF 


BIF9 18845245 MSG3: 
BIFD 41383A38 

B281 26413836 

B263 30204134 

B289 37468D 

B20C 1B1BEF 


B26F 18845792 MSG4: 
B213 49303A38 

B21? 26413838 

B21B 38204134 

B2iF 37468) 

B222 1BiBEF 


B225 8D8AI21B MSGS: 
B229 84444952 
B22) 363A1B1B 


OB 


DB 


DB 


DB 


DB 


OB 


DB 


3,32,4,GR,’(HIT ANY KEY TO ’ 


*CONTINUE)’ ,CR,LF,LF,E0S 


“ATR NAME TYPE VR SBLK SIZE’ 


LBC LADR SADR’ ,CR,LF LF 


EOS 


27,4, ’REAB:8 ABBB-A47F’ 13 


27,27 ,£0S 


27,4,’WRIB:8 ABBB-AA7F’ ,13 


27,27, £05 


CRLF ,GR,27,4,’DIRB:’ ,27,27 


ELE SUONOOE ac Sodas dive dude be vidaske tess neentes 


B231 EF 

B232 ADDRI: 
B234 COUNT: 
8235 SBLKX: 
B23? SIZEX: 
B239 
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How to Merge ‘BASIC’ Programs 
with Assembly Language Programs 


by Rick Taubold (and Tom Devlin, who helped but wants 
none of the credit) 


Let me ask all of you a question. How many of you have 
seen one of those programs which you could LIST in BASIC 
but which obviously contained more? Perhaps there was a 
‘CALL instruction but no machine language had been load- 
ed either from disk or by POKEing. How many raised hands 
do I see? The purpose of this article is to clear up this little 
mystery. In the process you will learn new things about your 
Compucolor II. What is described here is not limited to the 
CCII, but will work on any computer that employs 
Microsoft or similar BASIC. 


It was Tom Devlin, maker of nifty hardware for the 
Compucolor II, who first shared the secret with me. I should 
also point out that this can be used to merge any number 
of machine language subroutines with one BASIC program 
as well as permitting you to SAVE a machine language pro- 
gram as if it were a BASIC program. BASIC is a flexible 
language. Unfortunately, it is occasionally too slow for all 
desired uses. Writing entire assembly language programs 
might be fun to some people. To most of us it’s a lot of 
work. Therefore, it is often desirable to write in BASIC and 
to add short machine language routines where speed is re- 
quired. The CALL function in BASIC allows interfacing 
to machine language subroutines. Since it involves a 
subroutine, it must always end with the machine language 
equivalent of a RETURN instruction (RET in mnemonic 
code, hex value= C9, decimal value= 201). Other times it 
is convenient to write most of the program in machine 
language but to write an introduction or instructions in 
BASIC. 


In this case there are several options. Usually the pro- 
grammer will simply use BASIC to load and run his machine 
language program directly in which case there is no diffi- 
culty. An alternative is to load both programs at the same 
time and to employ ESC USER to execute the machine 
language. Again, the programs exist separately on the disk. 
I will present ways of having both BASIC and machine 
language programs in memory together but merged as a 
single program on the disk. Interested? Read on. 


Before I continue, I would like to clear up a few 
misconceptions about the CALL and ESC USER functions 
of the CCII. Many users seem to think that ESC USER is 
limited to a single function. This is untrue. Both the CALL 
and ESC USER commands represent what is called a ‘JUMP 
VECTOR’. By way of explanation let’s consider an analogy 
in BASIC. Assume that we have a command like GOTO X 
or GOSUB X, where X could be a variable instead of a 
specific line number. Wouldn’t the capability be nice? Our 
variable X would be a set variable names but we could 
change the value of X whenever we wished. 
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A JUMP VECTOR is similar. It means that we are tell- 
ing the computer to jump to a particular fixed location. At 
that location is another jump instruction. The CALL com- 
mand uses the locations 33282, 33283 and 33284. ESC USER 
employs the three locations 33215, 33216, 33217. The first 
location (33282 or 33215) always contains a machine 
language JMP instruction (C3 hex, 195 decimal) which is 
similar to the GOTO and GOSUB instructions in BASIC. 
This instruction is followed by a 2-byte memory address. 
Most of the time the programmer only uses one jump ad- 
dress. A typical program will assign only one CALL func- 
tion. However, this is not a requirement. In my ‘FINAL 
FRONTIER’ program several different machine language 
routines are used, depending on the need at the time. Since 
most of the program was written in BASIC and only one 
CALL command available, the ‘jump vector’ must be 
POKEd with a new jump address each time a different 
machine language subroutine is required. 


The CALL command in BASIC operates as a GOSUB 
to a machine language subroutine. When the machine 
language subroutine is completed, the program will 
RETURN to the next BASIC statement. When the BASIC 
sees a CALL command, it immediately jumps to memory 
location 33282 and sees another JMP command. (Keep in 
mind that ANY instruction could be placed here.) The 
BASIC reset routine normally insures that a JMP command 
is placed here, but I like to POKE in the command just in 
case It is somehow wiped out along the way. The computer 
will execute whatever it sees, so it pays to be certain which 
command is there. 


The jump address is calculated in an unusual way (unusual 
only if you’re not used to it). As an example, let us assume 
that the machine language subroutine to be CALLed is at 
hex location F000 (61440 decimal). From this we must cal- 
culate two values to POKE: FO and 00. These work out to 


be, in decimal, 240 and 0 respectively. However, when 


machine language reads an address, it expects the two bytes 
IN REVERSE ORDER! Therefore, we POKE them in 
backwards, and our final POKE instruction line to set up 
this particular CALL would be: 


POKE 33282,195:POKE 33283,8:POKE 33284 ,246 
(UMP) (88) (F@) 


When we use X = CALL(0) from BASIC, our program will 
first jump to location 33282, see the JMP FOOO instruction, 
and go to F000 hex to begin execution. 


The ESC USER works the same way. The only difference 
is that ESC USER acts like a GOTO and recognizes no 
RETURN instruction. Again, the important thing to 
remember is that we are not restricted to a single jump loca- 
tion. Your program can alter these jump vectors at any time, 
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and this makes them extremely powerful. ESC USER can 
be executed directly from a BASIC program by PLOT 27,30. 


There are several other places where jump vectors are used 
in the CCII. One of these is USER TIMER -2, and another 
is INPCRT. If anyone out there is interested, I can cover 
these in a future article. Now let us return to our main topic. 
You'll see the relevance of the previous discussion shortly. 


I will demonstrate the merging procedure using the Scroll- 
ing Patch, a simple but useful illustration. In its original 
form the Scrolling Patch used a BASIC program of some 
500 bytes to POKE in a 32 byte machine language program. 
Somehow, this seems like overkill. For many applications 
the programmer can enter this Patch directly and ‘throw 
away’ the BASIC part. New parameters can be POKEd easi- 
ly. This method saves memory and cleans up a program. 
A more or less complete description of this Patch appeared 
in the double issue Nov/Dec-Jan/Feb of FORUM. The first 
step in the procedure is to write and test the assembly 
language program. I have already done this in Listing -2. 
When everything works, you are ready to merge the two. 
For this demonstration enter the BASIC program in Listing 
-1], exactly as written, and SAVE it on disk. Next, using a 
screen or text editor, enter the source code of Listing -2 and 
save it on disk also. You may omit the comments. I placed 
the scroll parameters in EQU statements so that you can 
readily change them for your purposes. Do not assemble 
the source code yet! 


You should now have the two key programs on disk. So 
far, nothing out of the ordinary has been done. Two 
methods of merging are presented, each having its own ad- 
vantages and disadvantages. 


RICK’S METHOD: 


This method yields the most compact program but requires 
that you change and reassemble the source code whenever 
you change the length of the BASIC program it is to be us- 
ed with. It assumes that the machine code will begin im- 
mediately after the BASIC code. In addition, any changes 
will require that you also change the CALL jump vector. 
When you write the BASIC program, you never know until 
you’re done exactly where it will end. When you set up the 
POKEs for the CALL vector, the values can be 1, 2 or 3 
digits long. You appear end up in a no-win situation. If the 
number of digits changes, the length of the BASIC program 
changes which in turn changes the CALL vector which 
means changing the BASIC program, and so on... 


Simply make all 3 numbers three digits long. The first 
POKE will always be 195. Make the other two both 000. 
In this way you can change the numbers without changing 
the program length. BASIC won’t care if you POKE 
33283,019 instead of POKE 33283,19. 


Before you can assemble the source code you must know 
the ORG address, that is, where it will be loaded. This ad- 
dress will become the same as the end address of the BASIC 
program. If you have ‘The’ BASIC EDITOR, load the 
BASIC program and note the END@ number (in hex) at 
the bottom of the screen. Otherwise, you can get this value 
from the disk directory. It’s in the SADR column of the 
directory. This hex address now becomes your ORG address. 
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It should be 8384 if you typed the program as written (watch 
the spacing in the REM). Use your screen editor to change 
the ORG then assemble the program. If you are using the 
original CCII assembler (as opposed to the Macro 
Assembler, which is frequently more trouble than it’s 
worth), you can leave the file .LDA. There is no need to 
convert to .PRG. Note the address of the last assembled in- 
struction at the ENDPRG label which the assembler prints 
out when it’s done. This should be 83A4. You’ll need this 
in a moment. 


LOAD the BASIC program. From FCS, LOAD your 
machine language program. The two programs are now back 
to back in memory. Here’s where the trick comes in. In order 
to SAVE the whole mess from BASIC, we need to tell 
BASIC where the new program ends. The only end address 
it currently has is the old one of the BASIC program. 
However, we’ve extended it by adding the machine language 
portion.. 


Now you need that last address at the ENDPRG label in 
your assembly printout. In the Programming Manual one 
of the ‘Key Memory’ locations listed is 32982 (Points to end 
of BASIC source and start of BASIC variables). This and 
32983 are the locations which we must change to fool 
BASIC. The start of variables pointer (SOV) marks the end 
of the actual BASIC program and the start of the memory 
area where BASIC’s variables can start. This location 
changes every time you add to or delete lines in the program. 
that’s why a pointer is needed, so we don’t waste space. The 
variables start right after the program ends. By using this 
pointer location we are fooling BASIC into thinking that 
our machine language program is part of the BASIC pro- 
gram. This protects the routine so it cannot be wiped out 
by variables, etc. When using this pointer remember to 
POKE the A4 first (164 decimal) then the 83 (131 decimal). 
Use IMMEDIATE MODE and type: 


POKE 32982,164:POKE 32983,131 <RETURN> 


We’re all set. Simply, SAVE the program from BASIC. 
It can be LOADed from BASIC and RUN as any other pro- 
gram. Test it. Just remember that if you make even the 
tiniest change in the BASIC program, you’ll have to re- 
merge the two using a new value for the ORG address. This 
difficulty is overcome by-- 


TOM’S METHOD: 


This procedure requires that you assemble the source code 
twice. It also yields a somewhat longer total program, 
although this may be inconsequential. The big advantage 
is that you can make minor changes to the BASIC program 
without having to reassemble the source code. For most ap- 
plications, this will be the better method. First, change the 
source code in Listing 2 as follows (A.L. stands for assembly 
language): 


After the instruction W EQU 30 add— 


ENDAL QU 849AH  ;WHERE WE WANT A.L. TO END 
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Between the ENDPRG label and END START add— 


ENDPRG: REORG  EQU ENDAL -($-START) 
ORG 32982 START OF VARIABLES POINTER 
Ou ENDPRG ;MOVE POINTER TO PROTECT A.L. 


END START 


In this procedure the main difference is the start address 
of the machine language program. One advantage is that 
we can make ‘the total program exactly fill a given number 
of disk sectors. (One disk sector holds 128 bytes.) Because 
BASIC begins at 829A (hex), additional numbers ending in 
OO1A hex (e.g. 831A) will fill an odd number of disk sec- 
tors and those ending 009A hex (e.g. 839A) will fill an even 
number of disk sectors. As an example, we chose 4 sectors, 
making the end address 849A hex. This will add sufficient 
‘space’ between BASIC and the assembly language for 
future changes. 


The next trick is to discover the ORG ‘address for the 
assembly language. We want it to end at 849A, but, until 
we assemble the program, we don’t know how long it will 
be. The first line after the ENDPRG label helps us to ac- 
complish our goal. ENDAL is set at the start as 849A. In 
the expression the ‘$’ symbol is a notation for the current 
assembler address. By subtracting the address of START 
from it, we get the difference, or the length of the program. 
Subtracting this result from the address ENDAL, we calcu- 
late the starting address of the machine language. Now 
assemble the program for the first time. The assembler will 
print the REORG address (assuming you look for it) in 
parentheses. It should come out as 847A. Go back and 
change the initial ORG with the editor from 8384 to 847A. 
Reassemble the edited program. If you did everything right, 
REORG should come out the same as ORG. All that re- 
mains to be done is to change the CALL vectors in the 
BASIC program to reflect the new location of the machine 
language and to merge the two programs, as with Rick’s 
method. To change the CALL vector, line 120 of the BASIC 
program becomes: 


POKE 33282,195:POKE 33283,122:POKE 33284, 132 


With Rick’s method you had to manually POKE the 
pointer values at 32982 & 32983. With Tom’s method, we 
let the assembler do it for us. By setting the second ORG 
at the end to 32982 and using the DW (define word, 2 bytes) 
directive, we can insert the end address (ENDPRG label) 
into the required memory locations. A word of caution is 
in order. You must use the old assembler’s .LDA file to do 
this. The .PRG file won’t work! If you must create a .PRG 
file, you will have to POKE 32982 and 32983 manually as 
with Rick’s method. In either case, you can still SAVE the 
entire program from BASIC. 


Before concluding, I need to mention a couple of possi- 
ble bugs. The first one is that you cannot LOAD these hybrid 
programs using the DOS of ‘The’ BASIC EDITOR. Ap- 
parently this editor uses a different method to calculate the 
end of the BASIC program rather than using the SADR ad- 
dress on disk. The other possible problem is that using ‘The’ 
BASIC EDITOR’s HELP feature will effectively strip off 
the assembly language program when you attempt to re- 
SAVE it. Therefore, don’t take chances. Use BASIC’s direct 
SAVE and LOAD commands and everything will be fine. 0 


LISTING 41 


188 REM TEST OF SCROLL PATCH 

118 PLOT 12,15 

120 POKE 33282,195:POKE 33283,132:POKE 33284, 131 
138 LNE9 

148 FOR J=1 70 48 

150 IF LN<19 THEN LN=LNAT:PLOT 3,18,LN:GOTO 188 
168 X=CALL(B) 

178 PLOT 3,18,LN:PRINT SPC(38)**:PLOT 3,18,LN 
180 PLOT 6,J:PRINT J;" TESTING---SCROLLING---" 
198 NEXT J 

208 PLOT 8,4,2 

218 END 


LISTING #2 (Rick’s version) 


‘SCROLL PATCH ADD ON TO “BASIC’ PROGRAM 
‘SCROLL AREA PARAMETERS... .ssseeeesceeees 


x EQU 18 ‘STARTING COLUMN ON SCREEN 
Y EQU 18 SSTARTING ROW ON SCREEN 
H EQU 18 4 OF LINES TO SCROLL 
W EQU 38 s4 OF CHARACTERS WIDE TO SCROLL 
ORG 8384H ;END ADDRESS OF ’BASIC’ PROGRAM 
:28472 is start of screen memory (X=@, Y=8) 
; 50 first line below is starting screen location 
START: LX] H, 28672+128%Y+X+X 
MVI B, H-1 scount lines 


LOOP2: MVI C, We2 show wide before next line 


LOOPi: LX] D, 6886H 53128 decimal (down 1 line) 


DAD 0 

MOV A.M ;get a byte 

LX1 0, BFF8BH 5-128 decimal (back up 1 line) 

DAD D 

MOV MA yreload byte in new location 

INX H shext location 

NOP ;becomes INX H w/no color scroll 

DCR C ;done with this line? 

UN2 LOOP! sno 

LXI D, 128-W-Wosyes, next line 

DAD D 

DCR B ;done all lines? 

JNZ LOOP2 no 

RET yes, back to BASIC progran 
ENDPRG: 

END START 
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Part Ill. A Roadmap to successful installation and use. 


In this part of the Tiny-Pascal series we will provide step- 
by-step instructions for installing Tiny-Pascal, hoping to 
provide more readers with enough inspiration to tackle this 
tutorial series. While the necessary documentation was refer- 
enced in Part I, the method of installation can be in- 
timidating to those willing but unfamiliar with the approach 
used. 


The installation instructions are taken from the implemen- 
tation of Tiny-Pascal, written in the FORTH language, pre- 
pared by Dr. Jim Minor. Both the FORTH language and 
the Tiny-Pascal language are utilized in this installation, and 
both are available from the CHIP library by writing to the 
author. FORTH is supplied as a PRG file, while Tiny-Pascal 
is supplied in the form of FORTH programs, or ‘screens.’ 


FORTH (and Tiny-Pascal) utilizes the disk in 1024 byte 
units called ‘screens.’ The screen contains the program code 
lines, and is used as the means of displaying, entering, and 
editing programs using a special editor. A screen consists 
of 16 lines of 54 characters. Only one screen can be displayed 
onthe CRT at atime. A program may consist of more than 
just one screen, each screen linked to the other by a special 
coding. A disk side can hold fifty screens, numbered 0 to 
49. Blank screens, or screen templates, are used to enter new 
programs, so it is convenient to have a ‘starter screen set’ 
from which to begin. 


A starter set of screens for FORTH is supplied with con- 
tents on screens 0-19, starting at block 0. Screens 0 and | 
contain a conventional, but dummy, FCS directory. Screens 
2 and 3 contain ‘boilerplate.’ Screens 4 and 5 contain com- 
piler error messages. Screens 6 to 16 contain an editor which 
will be bypassed in favor of a better editor that comes as 
part of the Tiny-Pascal disk. Special FORTH words are con- 
tained on screens 17 to 19. I recommend that these FORTH 
starter sets be backed up by using a disk copy program that 
works without a directory. This copy should then be used 
as a ‘program’ disk, to hold programs written on blank 
screen templates. 


The starter set of screens for Tiny-Pascal is supplied with 
contents on screens 0-9 and 20-37. Screens 0-1 and 4-5 are 
utilized for the same purpose as those on the FORTH starter 
set, ie: FCS directory and error messages. Screens 2 and 3 
contain the Tiny-Pascal error messages, and 6-9 contain 
sample Tiny-Pascal programs. Blank templates for program 
development are provided on screens 10 to 19. Screens 20-37 
contain a FORTH line editor which is superior to the editor 
provided on the FORTH disk. This is the editor we are us- 
ing to enter and modify code. The Tiny-Pascal set should 
also be backed up before program development begins. 

Our objective is to install Tiny-Pascal (the compiler) and 
to enter a Tiny-Pascal program using the screen editor. Once 
the Tiny-Pascal compiler has itself been compiled and saved 
in PRG format, subsequent sessions with Tiny-Pascal are 
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significantly simplified. [This process consists of saving an 
expanded version of FORTH which contains Tiny-Pascal 
command words. With such a version, the FORTH responds 
to Tiny-Pascal commands as though it were a Tiny-Pascal 
system. Ed.] You will need CHIP FORTH Disk #46, and 
the two Tiny-Pascal disks, No. 83 and No. 84. In the text 
below, ‘(cr)’ means press the carriage return key. 


1) Place the FORTH disk, CHIP #46, in the disk drive. From 
FCS type RUN FORTH<cr> 


You should see the FORTH prompt ‘OK.’ If it does not 


appear, press (cr). 
2) Type at the FORTH prompt, 


HEX 1 1A +ORIGIN ' COLD<cr) 

This will turn on the error message text. 

3) Place CHIP Disk - 83 in the disk drive. Type 
6 LOAD<cr) 


This will compile Tiny-Pascal into FORTH. Wait patiently. 
4) Now place a fresh formatted disk into the drive. Type 


SAVE TPAL4<cr > 


This will save the augmented FORTH, containing Tiny- 
Pascal commands, to disk. 
5) Place CHIP Disk # 84 into the drive. Type 


28 LOAD<cr> 


This will compile the line editor into our augmented ver- 
sion of FORTH (TPAL). Wait patiently again. 


6) Replace the previously-used formatted disk in the drive. 


Type 
SAVE TPALED<cr) 


This will save our FORTH/PASCAL Editor to disk. 


Having made these changes, we need no longer be con- 
cerned with them when using Tiny-Pascal. Our two Tiny- 
Pascal programs, TPAL4.PRG and TPALED.PRG, can be 
loaded from FCS using the RUN command from now on. 
These two programs are our Tiny-Pascal system. 


Assume, now, that we wish to create a new program on 
a blank screen template and save it to disk. 


7) Place the Tiny-Pascal system disk, containing TPAL4 and 
TPALED, into the disk drive. Type 


RUN TPALED<cr) 


This will load the line editor. Wait for the ‘OK’ prompt. 


8) Now place your backup copy of Disk #84 into the drive. 
Type 


18 LIST<cr> 


This will load a blank screen template. 
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9) To invoke the line editor, type EDITOR<cr> 


10) You may now type in a program. Part I of this series 
lists the editor commands. Refer to them for assistance. You 
may use the sample program given in Part II of this series 
for practice. 


11) When the sample program is all typed in, type 
FLUSH(cr> 

to save screen #10 just entered. 

12) To invoke the Pascal compiler, type 


PASCAL <cr> 
13) To compile the program you just wrote on screen 410, 
type 

18 LOAD<cr> 


14) To run the program just compiled, type just the pro- 
gram name at the prompt. For example, to run Rec- 
tanglearea, just type 


RECTANGLEAREA (cr > 
at the prompt. 


The following commands may be used for editing a pro- 
gram. You will want to delete the compiled program, con- 
taining the errors, before compiling a new one of the same 
name. 


14) To delete a compiled program, you may use the FORTH 
‘FORGET’ command. For example, to delete a bad version 
of RECTANGLEAREA, type 


FORTH FORGET RECTANGLEAREA‘cr > 


before re-compiling an edited program version. This will 
delete the ‘bad’ version from memory. 


FORTH FORGET <filename><cr> 


will delete any compiled program. 


15) To re-invoke the screen editor for correcting mistakes 
or any editing of a program, type 


EDITOR<cr> 
16) To get screen #10 back again, type 


18 LOADcr> 


Now the text may be edited using the line editor commands. 
You will need to recompile following steps 11, 12 and 13 
above. 


What if your entire program takes more than one screen? 

There is a FORTH word (a symbol, really ) that ‘tells’ the 
compiler there is yet another screen connected with this pro- 
gram. This word is the ’continuation command’ and looks 
like this: <==) 
It is always preceeded by a space. The continuation com- 
mand is entered after the last Pascal command on the screen. 
The continuation command assumes that the ’continuation’ 
is on the screen with the next higher number from the screen 
on which it appears. You cannot, for example, continue 
screen #15 on screen #18. Screen #15 must continue on screen 
#16. 
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How do you get more blank screens? Use the Tiny-Pascal 
command( really a FORTH command we are borrowing ) 
COPY to create blank screens. Assume screen 419 is blank, 
and screen #20 contains information you can erase. 


17) Load TPALED by typing from FCS, 


RUN TPALED<cr> 
18) To invoke the line editor, type 


EDITOR<cr> 
19) To make a copy of screen #19 on screen #20, type 
19 28 COPY<cr> 


This overwrites the contents of screen #20 with a blank 
template. 


Or you may do it another way. First perform steps 17 and 
18 above. 


20) Type 26 LIST<Cr) 


This will load the screen we want to blank out. 
21) To clear screen #20 in memory, type WIPE<cr> 


22) When you have entered the new program lines, type 
FLUSH<cr> 


to save the new screen #20 to disk. 


It is not advisable to blank screens 0-5 on the disk, since 
they contain the directory and the error messages. Any 
screen beyond 5 may be used for programs. Preserve the 
original sampler disks, however. Use backup disks for your 
programs. 


You may not change the screen’ number of any screen, 
but the contents of a screen may be moved to another screen 
using the COPY function from step 19, above. The source 
screen may then be blanked if desired. 


How can you remember which screen a program is on? 
You can keep a logbook of screen contents, or the ‘dummy 
directory’ may be used to ‘log’ the screens from 6 to 49. 
Lets add a directory entry for RECTANGLEAREA. 
Assume this program is on screen #10. 


23) Place the Tiny-Pascal system disk in the drive. 
24) From FCS type, 


SAVE RECTAR.TPL @ 18<cr) 


This command makes a directory entry consisting of the pro- 
gram name, RECTAR, and the number 10, which references 
the originating screen of the program. The number of en- 
tries in your ‘program catalog’ (FCS directory) is limited 
to 13. This ‘catalog’ of programs can be listed directly from 
FCS with the DIR command. 


Now you have all the resources to get started with Tiny- 
Pascal. Gather together your FORTH and Tiny-Pascal 
disks, follow the course provided, and journey to a fine ex- 
perience. Best wishes on a safe trip! LJ 
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UNCLASSIFIED ADVERTISEMENTS 


FOR SALE: One broken v6.78 CCII with 32K memory, swit- 
chable lower case character set. Eight related disks including 
Soundware, Muldowney’s Assembly Language Tutorial, 
assorted games, formatter, and more. Scads and scads of 
documentation, including service manual, programming 
manual, ‘‘Basic Training’’,‘‘ Color Graphics’’, and most 
Colorcues. This unit has analog board and power supply 
problems. You may be able to repair it. It is suitable for 
spare parts at least. I’ll take the best offer over $100 plus 
shipping. Write Tom Andries, 815 W. Douglas Road, Lot 
1, Wishawaka, IN 46545, or call 219-272-6768. 


FOR SALE: One unbroken 3651, 40K RAM, full keyboard, 
too much software, CRT filter, switchable lower case, 
custom key caps for Compuwriter and screen editor. One 
internal 5’? MD drive. I’ll take $1200, you pay shipping; and 
I’ll convert your CD disks to MD where possible. 
COLORCUE, 609-234-8117. 


Forum - back issues still available! 


All back copies of FORUM are still available and 


loaded with informative articles, programs, and tips: 


Vol |, No. 1 through 4, $3 each. 

-Vol |. No. 5 and 6 (double issue), $5. 

Vol Il, No. 1 through 4, $4 each. 

Vol ll, No. 5 and 6 (double issue), $6 each. 
Vol Ill, No. 1 (final issue), $4 each. 


All prices include postage to North America. Europe 
and South America please add $1.00 (US) per issue. 
Asia, Africa and the Middle East please add $1.40 
(US) per issue. Order from: 


Mr. Arthur Tack, 1127 Kaiser Road, S:W., Olympia, WA, 
98502, U.S.A, 


RAM/EPROM for the CCII 


An add-on memory board with 8K RAM plus space 
for 8K EPROM is available for the Compucolor II or 
3651. This 8K RAM/EPROM can hold assembler pro- 
grams at address 4000H. Your existing 16K or 32K of 
user RAM is still available for other Basic or Assembler 
programs. Some minor modifications are required to 
the main logic board (five soldered links.) Some ver- 
sions of v8.79 computers may also require an update 
FCS ROM. All versions of v6.78 require the update 


to current. 


ROM. The RAM board can also be easily connected 
to a ROMPACK system, instead of the fixed 8K EPROM. 
In this case, two banks of memory are selected by 
a switch. To retain the contents of the 8K RAM after 
power-off, a battery backup is available. A second 
8K RAM/EPROM can be connected to the first board. 
PROGRAM PACKAGE INSTALLERS. PO Box 37, 
Darligton, Western Australia 6070. 


Back issues of COLORCUE contain a wealth of practical information for 
the beginner as well as the more advanced programmer, and an historical 
perspective on the CCII computer. Issues are available from October 1978 


DISCOUNT: For orders of 10 or more items, subtract 25 % from total after 

postage has been added. POSTAGE: for U.S., Canada and Mexico First 
| Class postage is included; Europe and South America add $1.00 per item 
for Air Mail, or $ 0.40 per item for surface; Asia, Africa, and the Middle 
East add $ 1.40 per item for Air Mail, or $ 0.60 per item for surface. SEND 
ORDER to Ben Barlow, 161 Brookside Drive, Rochester. NY 14618 for 
VOL | through VOL V; 


and to Colorcue, 19 West Second Street, 


Moorestown, NJ 08057 for VOL VI and beyond. 


1978 VOL | $3.50 each 
No. 1-3: OCT/ NOV/ DEC 
1979 VOL Il $3.50 each 
No. 1-3: APR/MAY/JUN 
No. 4-5: JAN/FEB/MAR 1981 
No. 6-7: AUG/SEP/OCT 
No. 8: NOV Xerox Copy, $2.00 
1980 VOL Ill $1.50 each 
No.1 _DEC/JAN 1982 
No. 2 FEB 
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No. 3: MAR No. 6 JUN/JUL 

No. 4: APR VOL V 

No. 5: MAY No. 1: AUG/SEP 
Roe. AEs No.2: OCT/NOV 
VOLIV = $2.50 each 1983 No.3: DEC/JAN 
No. 0: DEC/JAN No. 4: FEB/MAR 
No. 1: AUG/SEP No. 5: APR/MAY 
No. 2: OCT/NOV No. 6: JUN/JUL 

No. 3: DEC/JAN 

No. 4: | FEB/MAR 1984 = VOL VI $3.50 each 
No. 5: APR/MAY 


31 


~----D1SK VOLUME SPACE----- 


ADDR BYTE TRANS FUNCTION 


8288 


84 Marker 


82 Attribute 
83 
84 
85 
86 
87 
88 
89 
BA 
8B 
6C 
6D 
GE 
QF 
8218 
11 
12 
13 
14 
15 
16 


Volume 
Name 


Not 
Used 


~----=-{ST FILE ENTRY------- 


ADDR BYTE TRANS FUNCTION 


8217 Attribute 
18 
19 
1A 
1B 
iC 
1D 
1E File 
iF Type 

8228 


21 Version 
22 SBLK 
23 6885 
24 SIZE 
29 8885 


26 LBC 


27 LADR 
28 8288 


29 SADR 
2A 


2B Spare 


File 
Name 


~----=-2ND FILE ENTRY------- 


ADDR BYTE TRANS FUNCTION 


822C Attribute 
20 
2E 
2F 
8238 
31 
32 
33 File 
34 Type 
35 


36 Version 
37 SBLK 
38 868A 
39 S12E 
3A 1262 


3B LBC 
aC LADR 
3D 

3E SADR 
3F 


8248 Spare 


File 
Name 


~---=--3RD FILE ENTRY------- 


ADDR BYTE TRANS FUNCTION 


8241 Attribut 
42 
43 
44 
45 
46 
47 
48 File 
49 Type 
ae 


4B Version 
4C SBLK 

4D 

4£ SIZE 
4F 


8258 LBC 
3 | LADR 
02 
33 SADR 
04 


Jd Spare 


File 
Name 


~---=--4TH FILE ENTRY------- 


ADDR BYTE TRANS FUNCTION 


8256 Attribute 


37 


File 
Name 


File 
JE Type 
oF 


8268 Version 
6] SBLK 
62 8685 
63 SIZE 
64 8885 


65 LBC 

64 LADR 
6? 8288 
68 SADR 
69 8268 


on Spare 
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~------5TH FILE ENTRY------- 


ADDR BYTE TRANS FUNCTION 


826R Attribute 
éC 
6D 
é6E 
6F 
8278 
71 
72 File 
73 Type 
74 


SO Oe 8 8 > OO OF OF Oe OF ee OF 


75 Version 
76 SBLK 
77 888A 
78 SIZE 
79 1262 


7A LBC 
7B LADR 
7C 
7D SADR 
7E 


7F Spare 


File 
Name 


